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ABSTRACT 

This  thesis  documents  a  simulation  study  oflight  infantry  operations  in  mid-to-high 
intensity  conflict.  An  initial  data  analysis  is  performed  using  deliberate  attack  missions 
conducted  at  the  U.S.  Army  National  Training  Center  (NTC)  and  compares  the  meas- 
ures of  effectiveness  (MOE)  of  fully  modernized  heavy  forces  to  the  effectiveness  of 
heavy  forces  operating  with  an  attached  light  infantry  battalion.  This  analysis  includes 
development  of  a  light  infantry  attack  simulation  which  employs  object  oriented  pro- 
gramming in  MODSIM  II.  The  simulation  models  light  infantry  operations  in  the  NTC 
environment  and  is  used  to  explore  alternative  tactical  employment  techniques  designed 
to  enhance  unit  performance  on  the  AirLand  Battlefield.  This  thesis  also  describes  the 
tank  and  mechanized  infantry  task  force,  the  light  infantry  task  force,  the  heavy/light 
rotation  concept,  the  deliberate  attack  mission,  and  the  NTC  environment  and  data 
collection  capabilities. 

The  simulation  models  an  infantry  attack  against  opposing  forces  in  fixed,  fortified 
positions.  The  model  is  a  high  resolution  simulation  which  builds  object  code  from 
infantry  platoon  level  through  battalion.  The  simulation  depicts  unit  movements,  attri- 
tion to  indirect  fires,  and  target  engagements.  The  positioning  of  enemy  forces  is  ex- 
tracted from  actual  battlefield  positions  during  an  NTC  deliberate  attack  mission.  The 
simulation  replicates  close  operations  in  which  the  light  force  mission  is  to  gain  an  initial 
penetration  of  enemy  barriers  and  pass  the  heavy  force  forward  to  continue  the  attack. 
The  simulation  study  explores  the  use  oflight  forces  in  alternative  tactical  scenarios. 
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I.     INTRODUCTION 

A.     BACKGROUND 

The  Army  of  the  21st  Century  must  meet  the  fundamental  requirements  of  versatil- 
ity, deployability,  and  lethality.  AirLand  Battle,  the  Army's  current  doctrine,  provides 
the  framework  for  organizing,  training,  and  equipping  forces  to  maximize  combat  power 
and  effectiveness  across  the  spectrum  of  conflict,  from  low  to  high  intensity.  The  re- 
quirement to  maintain  an  appropriate  mix  of  heavy,  light,  and  special  operations  forces 
is  one  of  six  Army  fundamental  imperatives  [Ref.  1].  At  the  operational  and  tactical 
levels,  heavy  and  light  forces  must  be  prepared  to  fight  on  an  integrated  battlefield  to 
exploit  and  optimize  the  capabilities  of  each  force.  The  Army's  Combat  Training  Cen- 
ters (CTCs)  provide  a  tough,  realistic  environment  in  which  to  train  forces  to  fight  on 
the  combined  arms  battlefield. 

The  National  Training  Center  (NTC)  is  the  testbed  of  the  AirLand  Battle  doctrine. 
One  of  the  recurrent  themes  of  training  at  the  NTC  is  the  integration  of  light  infantry- 
forces  on  the  battlefield  with  heavy  force  operations.  The  first  of  the  "heavy,  light"  ro- 
tations was  conducted  in  the  spring  of  1987.  There  have  been  12  heavy,  light  rotations 
out  of  some  66  rotations  at  the  time  of  this  writing.  The  application  of  combined  heavy 
and  light  force  operations  stems  from  the  AirLand  Battle  imperatives,  which  are  funda- 
mental for  success  on  the  modern  battlefield.  Specifically,  the  one  imperative  which  de- 
scribes the  purpose  of  integrating  forces  is  entitled  "Combine  Arms  and  Sister  Services 
to  Complement  and  Reinforce."  Complementary  combined  arms  expose  the  enemy  to 
the  effects  of  one  arm  while  he  attempts  to  evade  the  effects  of  another.  Arms  and  ser- 
vices reinforce  each  other  when  one  serves  to  increase  the  effectiveness  of  the  other  or 
combine  to  produce  mass.  [Ref.  2:  p.  25] 

Successful  integration  of  light  and  heavy  forces  is  a  combat  multiplier  on  the  bat- 
tlefield. Intuitively,  an  analysis  of  units  fighting  as  part  of  a  combined  arms  force  should 
suggest  a  measurable  increase  in  the  effectiveness  of  engaged  forces.  The  NTC  provides 
the  data  collection  environment  to  test  such  an  hypothesis.  However,  after  reviewing 
observer  comments  over  numerous  heavy/light  rotations,  an  apparent  trend  seems  evi- 
dent: our  heavy  and  light  forces  are  not  synchronized  in  their  efforts  on  the  battlefield. 
Additionally,  a  cursory  analysis  of  battlefield  damage  and  casualty  rates  indicates  that 
the    light    forces    typically    contribute    little    to    the    overall    battle    while    suffering 


overwhelniine  casualties.    Major  General  Peter  J.  Bovlan.  in  a  recent  article  addressing 
the  employment  of  heavy  and  light  forces  in  mid-to-high  intensity  conflict,  states 

It  has  been  demonstrated  time  and  time  again  that,  other  conditions  being  equal, 
light  forces  pitted  against  heavy  combat  forces  will  suffer  unacceptable"  high  losses 
or  be  defeated  almost  100  percent  of  the  time.  The  defeat  of  enemy  heavy  maneuver 
forces  will  almost  certainly  require  the  employment  of  similar  type  heavy  forces, 
even  with  enhanced  light  force  technology.   [Ref.  3:  p.  28] 

B.     PURPOSE  AND  SCOPE 

The  purpose  of  this  thesis  is  to  analyze  light  infantry  effectiveness  through  devel- 
opment and  experimentation  with  a  simulation  model.  The  scope  of  this  thesis  is  limited 
to  modeling  light  force  operations  in  a  heavy,  light  scenario  consistent  with  the  capabil- 
ities of  the  NTC.  This  thesis  emphasizes  the  development  and  use  of  a  light  force  sim- 
ulation model  and  employs  the  object  oriented  programming  language  MODSIM  II. 

Current  Army  capabilities  to  test  light  infantry  operations  in  a  mid-to-high  intensity 
environment  are  limited.  Analyzing  light  infantry  effectiveness  may  be  accomplished 
through  several  approaches,  two  of  which  are  presented  here:  an  analysis  of  measures 
of  effectiveness  in  training  at  the  CTCs.  and  simulating  light  infantry  operations  in  a 
combat  model.  The  Army's  CTCs  provide  a  training  environment  in  which  light  forces 
are  routinely  employed;  however,  light  forces  are  seldom  used  in  a  role  which  maximizes 
their  utility  in  this  type  of  environment.  Furthermore.  US  Army  combat  models  are  also 
limited  in  their  ability  to  model  light  infantry  operations. 

Light  infantry  performance  at  the  NTC  is  difficult  to  measure  quantitatively.  NTC 
battles  typically  focus  on  the  destruction  of  enemy  maneuver  forces  as  opposed  to  other 
elements  of  enemy  combat  power.  Heavy  light  battles  are  a  graphic  manifestation  of 
this  shortcoming.  Commanders  rarely  have  the  opportunity  to  employ  light  forces 
against  enemy  battlefield  operating  systems  other  than  their  heavy  maneuver  forces,  re- 
sulting in  unacceptably  high  losses.  There  are  numerous  factors  which  influence  the 
ability  of  the  light  force  to  accomplish  its  mission.  Some  of  the  factors  are  readily  ob- 
tained from  the  comments  of  the  observers,  while  others  are  so  intermixed  with  the 
performance  of  the  entire  heavy  light  force  as  to  render  them  intangible.  Those  quanti- 
fiable factors  will  be  used  to  perform  the  initial  data  analysis  and  determine  measures 
of  effectiveness.  Chapter  II  discusses  light  infantry  performance  at  the  NTC.  However, 
due  to  limited  ability  of  the  CTCs  to  provide  scenarios  in  which  the  light  force's  combat 
power  may  be  maximized,  and  limited  data  availability,  further  analysis  via  simulation 
methodology  may  provide  insight  into  improving  light  infantry  effectiveness. 


C.     SCENARIO 

1.  General 

The  general  scenario  portrays  a  requirement  to  commit  friendly  forces  in  rugged. 
open  terrain,  against  a  modern  armored  and  mechanized  opposing  force.  The  friendly 
force  mission  is  to  conduct  a  deliberate  attack  to  seize  objectives  and  destroy  enemy 
forces.  The  friendly  force  is  organized  around  a  fully  modernized  tank  and  mechanized 
infantry  task  force  and  light  infantry  forces.  The  commander's  intent  is  to  insert  the 
light  force  early  to  penetrate  barriers  and  fix  the  enemy  front  line.  The  heavy  forces  will 
exploit  the  penetration  and  attack  deep  into  enemy  territory  as  the  main  effort. 

a.  Phase  I  -  Deployment 

The  first  phase  of  the  model,  deployment  of  forces,  assumes  successful  in- 
sertion of  the  light  forces,  either  to  forward  positions  in  front  of  the  enemy,  or  to  posi- 
tions to  the  enemy's  flank  or  rear.  No  actual  modeling  is  performed;  this  simply  provides 
a  starting  position  from  which  the  light  forces  begin  ground  operations. 

b.  Phase  II  -  Light  Infantry  Operations 

The  second  phase  is  modeled  by  the  light  infantry  attack  simulation.  Dur- 
ing this  phase,  light  infantry  elements  are  operating  against  enemy  fixed,  fortified  posi- 
tions. Enemy  positions  and  weapons  systems  are  extracted  from  actual  battlefield 
positions  during  an  XTC  deliberate  attack  mission,  and  several  friendly  courses  of  action 
form  the  basis  of  the  experiment. 

2.  The  Light  Infantry  Attack  Simulation 

The  model  is  a  high  resolution  combat  simulation  which  discretely  represents 
the  infantry  battalion,  rifle  companies,  rifle  platoons,  and  each  Anti-Tank  Guided  Mis- 
sile (ATGM)  gunner  in  the  platoon.  The  simulation  depicts  unit  movements,  attrition 
to  indirect  fires,  and  target  engagements.  The  simulation  permits  employment  of  light 
forces  in  alternative  tactical  situations.  Further  discussion  of  the  model  is  contained  in 
Chapter  III. 

3.  Future  Developments 

The  natural  extension  of  this  effort  is  the  development  of  a  complementary 
heavy  force  model  or  analytic  surrogate.  Continued  development  of  scenarios  to  allow 
simultaneous  employment  of  light  and  heavy  forces  in  complementary  force  operations 
would  enable  a  more  complete  analysis  of  the  total  force  effectiveness. 


D.     PROBLEM  DESCRIPTION 

The  approach  of  this  thesis  is  to  construct  and  analyze,  by  simulation  methodology, 
a  model  to  explore  alternative  light  infantry  tactics  in  a  mid-to-high  intensity  deliberate 
attack  scenario.  The  NTC  heavy; light  rotation  deliberate  attack  missions  provide  a  data 
source  for  determining  measures  of  effectiveness  and  employment  characteristics. 

This  thesis  is  an  initial  effort  to  simulate  light  force  operations.  It  is  both  timely  and 
relevant;  planning  successful  complementary  operations  pose  a  significant  problem  to 
tactical  units  preparing  to  fight  on  an  integrated  battlefield.  This  research  and  analysis 
may  be  used  to  enhance  the  battle  staff  planning  process  and  tactical  execution,  and  to 
provide  doctrinal  insight  into  methods  to  achieve  results  that  neither  force  could  achieve 
operating  on  its  own. 


II.     HEAVY/LIGHT  PERFORMANCE  ASSESSMENT 

A.  GENERAL 

This  Chapter  presents  an  assessment  of  heavy/light  training  and  performance  at  the 
NTC.  Data  collected  from  numerous  heavy  and  heavy/light  rotations  are  presented  to 
further  define  the  problem.   The  motivation  for  this  presentation  is  to: 

•  Provide  data  input  to  the  light  infantry  attack  simulation  (discussed  further  in 
Chapter  IV). 

•  Determine  the  measures  of  effectiveness  to  analyze  unit  performance. 

•  Highlight  shortcomings  in  the  ability  of  the  CTCs  to  support  complementary  force 
operations,  instrumentation,  and  performance  evaluations. 

•  Describe  shortcomings  in  heavy/light  tactics. 

B.  TASK  ORGANIZATION 

1.     The  Light  Infantry  Battalion 

a.  Employment  of  Light  Infantry 

Infantry'  units  have  the  unique  quality  of  being  an  all-weather  force  capable 
of  defeating  any  enemy  on  any  terrain.  Infantry  is  ideally  suited  for  close-in  operations 
against  an  enemy  of  equal  mobility,  or  in  terrain  which  degrades  the  mobility  of  mech- 
anized forces  [Ref.  4].    In  operations  where  armored  forces  predominate,  infantry  can: 

•  Make  initial  penetrations  in  difficult  terrain  for  exploitation  by  armor  and 
mechanized  infantry. 

•  Attack  over  approaches  that  are  not  feasible  for  heavy  forces. 

•  Conduct  rear  area  operations,  capitalizing  on  air  mobility.   [Ref.  2:  p.  41] 

b.  Organization  of  the  Light  Infantry  Battalion 

An  infantry  battalion  consists  of  a  headquarters,  maneuver  units,  combat 
support  (CS),  and  combat  service  support  (CSS)  elements.  The  battalion  is  typically 
augmented  with  additional  CS  and  CSS  assets  based  on  the  mission,  enemy,  terrain, 
troops  and  time  available  (METT-T).  The  maneuver  forces  organic  to  the  infantry 
battalion  include  three  rifle  companies  and  one  anti-armor  company.  Normal  augmen- 
tation to  the  battalion  includes  a  fire  support  battery,  engineers,  air  defense,  and  other 
elements. 


2.     The  Tank  and  Mechanized  Infantry  Task  Force 

The  heavy  battalion  task  force  is  organized  by  cross-attaching  tank  and  mech- 
anized infantry  companies  within  the  brigade.  A  battalion  task  force  usually  consists 
of  four  to  five  maneuver  companies,  an  anti-armor  company,  a  headquarters  element, 
and  various  slices  of  CS  and  CSS  assets.  An  example  of  a  mechanized  infantry  task  force 
is  shown  in  Figure  1. 

C.  THE  DELIBERATE  ATTACK  MISSION 

The  deliberate  attack  mission  is  the  most  detailed  and  thoroughly  coordinated  of- 
fensive mission  for  the  battle  staff  planner.  For  the  tactical  unit,  the  deliberate  attack 
is  the  most  difficult  and  challenging  to  execute.  All  elements  of  combat  power  are 
brought  to  bear  on  the  enemy.    The  deliberate  attack  is  defined  as: 

An  attack  planned  and  carefully  coordinated  with  all  concerned  elements  based  on 
thorough  reconnaissance,  evaluation  of  all  available  intelligence  and  relative  combat 
strength,  analysis  of  various  courses  of  action  and  other  factors  affecting  the  situ- 
ation. It  generally  is  conducted  against  a  well  organized  defense  when  a  hasty  attack 
cannot  be  conducted  or  has  been  conducted  and  failed.    [Ref.  5  :  p.  1-8] 

Deliberate  attacks  are  planned  in  detail,  and  are  characterized  by  timely  intelligence, 
extensive  preparations,  deception,  electronic  warfare,  unconventional  warfare,  and  psy- 
chological operations.  Deep  operations  play  a  significant  role  in  the  deliberate  attack. 
Deep  operations  are  conducted  to  "block  movement  of  [enemy]  reserves,  destroy  his 
command  posts,  neutralize  his  artillery,  and  prevent  the  escape  of  targeted  elements." 
[Ref.  2:  p.  1 16]  The  deliberate  attack  is  therefore  selected  as  the  focus  for  the  studv  of 
heavy  Tight  effectiveness  and  data  collection. 

D.  NTC  DATA  COLLECTION 

1.  The  NTC  Environment 

The  NTC  is  located  in  the  Mojave  Desert  at  Fort  Irwin.  California.  The  NTC 
is  a  vast  expanse  of  widely  varying  desert  terrain  covering  some  640,000  acres.  The 
mountainous  terrain  divides  the  maneuver  area  into  three  corridors;  the  northern  corri- 
dor is  used  principally  for  live  fire  training  while  the  central  and  southern  corridors  are 
used  for  force  on  force  maneuver  exercises.   The  training  center  is  depicted  in  Figure  2. 

2.  Mission  of  the  NTC 

The  NTC  has  two  primary  missions.  The  first  mission  is  to  provide  tough,  re- 
alistic combined  arms  and  joint  services  training  in  accordance  with  AirLand  Battle 
doctrine,  for  brigades  and  regiments  in  a  mid-to-high  intensity  environment,  while 
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Figure   1.      The  Mechanized  Infantry  Task  Force 


retaining  feedback  and  analysis  at  the  battalion/task  force  level.  The  second  mission  is 
to  provide  a  data  source  for  training,  doctrine,  and  equipment  improvements.  Training 
exercises  are  "free-play",  allowing  units  to  plan  and  fight  as  they  would  in  combat, 
subject  to  specific  safety  guidelines  and  rules  of  engagement.  Following  each  mission, 
units  receive  immediate  performance  feedback  in  the  form  of  after  action  reviews 
(AARs).     The  AAR  is  a  forum  for  commanders  and  staffs  to  evaluate  their  own 


Figure  2.      The  National  Training  Center 


performance  and  learn  from  comments  of  outside  observers.     The  AAR  focuses  the 
analysis  on  the  seven  battlefield  operating  systems  (BOS): 

•  Maneuver 

•  Command  and  Control 

•  Fire  Support 

•  Intelligence 


•  Air  Defense 

•  Mobility.  Countermobility,  Survivability 

•  Combat  Service  Support. 

3.  Heavy/Light  Rotation  Description 

Training  at  the  NTC  is  conducted  on  a  rotational  basis.  There  are  14  rotations 
scheduled  during  each  fiscal  year.  Forces  deploying  to  the  NTC  typically  consist  of  a 
brigade  headquarters,  two  battalions  of  armor  and  or  mechanized  infantry,  an  artillery 
battalion,  and  a  support  battalion.  During  a  heavy/light  rotation,  a  light  infantry  bat- 
talion from  another  division  is  attached  to  the  heavy  force  brigade  commander  for  the 
entire  rotation. 

The  NTC  has  a  permanently  assigned  opposing  force  (OPFOR)  which  is  or- 
ganized to  replicate  a  Soviet  style  motorized  rifle  regiment,  consisting  of  three  motorized 
rifle  battalions.  OPFOR  equipment  consists  of  U.S.  Army  tracked  and  wheeled  vehicles 
visually  modified  to  more  closely  resemble  threat  equipment.  The  OPFOR  is  proficient 
in  Soviet  tactics,  knows  the  terrain,  and  is  highly  motivated.  There  is  no  change  in  threat 
tactics  when  a  heavy/light  rotation  is  scheduled  as  compared  to  normal  heavy  rotations. 

A  typical  rotation  is  divided  into  three  phases:  battalion  force-  on-force  training 
(FFT),  battalion  live  fire  training  (LFT).  and  brigade  FFT.  During  a  heavy/light  rota- 
tion, the  FFT  and  LFT  usually  consist  of  both  heavy  and  light  task  forces  operating 
under  brigade  control. 

4.  Data  Collection 

The  NTC's  instrumentation  system  is  the  principal  asset  in  collecting  kill  data 
and  determining  the  source  ol"  the  engagement.  Player  units  are  instrumented  with  the 
Multiple  Integrated  Laser  Engagement  System  (MILES)  down  to  vehicle  level,  enabling 
the  mainframe  subsystems  to  determine  vehicle  locations  and  status,  resolve  direct  fire 
engagements,  and  to  store  the  data  for  future  analysis.  Instrumentation  of  the  light 
infantry  battalion  is  less  accurate.  Although  each  individual  soldier  wears  the  MILES 
harness,  and  all  light  infantry  weapons  systems  have  a  MILES  firing  device,  position 
locating  devices  track  only  to  platoon  level,  and  casualty  data  are  collected  by 
observer  controllers  moving  with  the  units. 

E.     DATA  SOURCES 

The  Army  Research  Institute-Presidio  of  Monterey  (ARI-POM),  houses  the  CTC 
archive.  The  facility  consists  of  the  digital  data  archive,  a  non-digital  data  archive,  and 
the  Combat  Operations  Research  Facility.     The  archives  store  all  the  data  collected 


during  a  rotation  at  the  NIC.  The  data  take  many  forms,  including  digital,  audio-visual, 
written,  and  operations  graphics. 

The  digital  archive  database  provides  the  user  rapid  access  to  unit  organizations, 
equipment  composition,  battle  damage  statistics,  and  battle  replay.  Digital  data  may 
be  accessed  through  the  VAX  computer  network  or  personal  computer.  The  non-digital 
data  archive  stores  written  copies  of  the  unit  take-home  packages,  operations  orders  and 
overlays,  video  tape  copies  of  the  AARs.  and  audio  recordings  of  radio  transmissions. 
The  data  presented  in  this  thesis  represent  a  collection  effort  using  all  of  these  media, 
with  emphasis  on  the  unit  take  home  packages. 

The  unit  take  home  packages  contain  a  written  summary  of  the  mission  and  include 
detailed  comments  from  the  observers  relating  unit  performance  in  each  of  the  seven 
BOS.  Additionally,  the  take  home  package  contains  a  statistical  summary  describing  the 
casualty  assessment  of  both  friendly  and  OPFOR  units,  and  identifies  weapon  systems 
that  caused  the  casualties  for  each  mission  during  the  rotation.  Kills  of  OPFOR  systems 
attributable  to  light  infantry  actions  are  sometimes  difficult  to  isolate;  the  statistical 
summary  identifies  systems  that  caused  OPFOR  casualties,  but  does  not  necessarily 
identify  the  unit  that  caused  the  casualties.  An  example  of  this  data  isolation  problem 
is  the  TOW  anti-tank  guided  missile:  both  light  infantry  forces  and  mechanized  infantry 
forces  engage  tanks  with  TOWs.  Determining  which  unit  scored  the  hit  under  these 
conditions  involves  double-checking  times  and  locations  of  unit  engagements,  and  veri- 
fying weapons  assigned  to  the  unit. 

F.     DELIBERATE  ATTACK  DATA 

The  initial  data  analysis  effort  involved  the  collection  of  data  to  compare  the  oper- 
ational effectiveness  of  heavy  forces  versus  the  effectiveness  of  heavy  forces  operating 
with  an  attached  light  infantry  battalion.  Data  were  collected  for  all  deliberate  attack 
missions  conducted  by  fully  modernized  heavy  forces  operating  without  light  infantry; 
i.e..  units  equipped  with  the  Ml  Abrams  Main  Battle  Tank  and  the  M2  Bradley  Infantry 
Fighting  Vehicle,  and  all  deliberate  attack  missions  in  which  light  infantry  operated  in 
conjunction  with  heavy  forces.  A  total  of  26  heavy  modernized  deliberate  attack 
missions  were  selected,  with  14  heavy/light  deliberate  attack  missions  available.  How- 
ever, it  must  be  noted  that  due  to  the  small  sample  size  of  fully  modernized  heavy/ light 
rotations  (only  six  of  the  14  available),  all  heavy/light  deliberate  attack  missions  were 
considered.  Of  the  26  heavy  deliberate  attack  missions,  seven  were  conducted  by  mech- 
anized task  forces,    13  by  armor  task  forces,  and  six  by  brigade  level  units.     The 
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heavy/light  deliberate  attacks  included  seven  by  armor  heavy,  five  by  mechanized 
infantry  heavy,  and  two  by  brigade  level  forces. 

G.     MEASURES  OF  EFFECTIVENESS 

1.  General 

There  are  numerous  factors  to  consider  as  measures  of  a  unit's  effectiveness. 
Some  factors  such  as  force  ratios  and  number  of  systems  destroyed  are  easily  quantified, 
while  other  factors  such  as  technology  or  leadership  are  not.  The  MOEs  established  here 
reflect,  to  some  extent,  the  limitations  of  data  availability  and  quantifiability.  The  sta- 
tistical summary  in  the  unit  take  home  packages  is  the  most  reliable  data  source  for 
collection.  There  are  two  aspects  of  operational  planning  which  lead  to  quantifiable 
MOEs:  destruction  of  the  enemy  force  and  protection  of  the  friendly  force.  However, 
inconsistencies  in  the  data  prevent  accurate  analysis  of  all  systems  contributing  to  the 
effectiveness  of  the  unit.  In  particular,  the  data  tend  to  focus  on  the  major  tank  killing 
systems  and  lack  specificity  and  sufficient  detail  to  accurately  depict  infantry  losses. 
Therefore,  the  systems  selected  for  study  include  the  systems  for  which  the  data  is  most 
consistent:  tanks,  infantry  fighting  vehicles,  and  TOWs  for  the  friendly  force;  tanks, 
BMPs,  the  Soviet  equivalent  of  the  M2.  and  BRDMs,  the  Soviet  armored  reconnaissance 
vehicle. 

2.  Destroy  MOE 

The  first  MOE,  termed  the  Destroy  MOE,  is  calculated  as  the  total  number  of 
enemy  systems  killed  during  the  attack  divided  by  the  total  number  of  enemy  systems 
at  the  start  of  the  attack,  for  each  observation  i  : 

OPFORlTanAs.-  +  BMPs;  +  BRDMsMeslroxed 
Destrov  MOE, 


OVVOR(TankSi  +  BMPsL  +  BRDMsfi  starting 


The  data  collected  for  heavy/light  deliberate  attacks  and  calculation  of  the  Destroy 
MOE  are  shown  in  Table  1.  Modernized  heavy/light  rotations  are  indicated  by  an  as- 
terisk in  the  rotation  column.  The  combined  efforts  of  the  heavy  and  light  forces 
achieved  a  mean  destruction  of  48.5%  of  the  opposing  forces,  with  a  standard  deviation 
of  21.6%.  The  range  of  destruction  values  is  from  16%  to  approximately  84%.  Table 
2  contains  the  data  for  the  heavy  force  deliberate  attack  missions.  For  the  26  heavy 
force  observations,  the  mean  destruction  of  opposing  forces  is  49.5%,  with  a  standard 
deviation  of  23.1%.  Destruction  of  opposing  forces  ranged  from  15.8%  to  approxi- 
mately 96%.  In  terms  of  enemy  destruction,  heavy  forces  achieved  a  slightly  higher  level 
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of  destruction  than  did  the  heavy/light  forces  operating  in  concert,  contrary  to  the  ex- 
pected result.  Further  discussion  of  this  result  is  presented  in  the  analysis  at  the  con- 
clusion of  this  chapter. 

Table   I.     HEAVY/LIGHT  OPFOR  DESTRUCTION  DATA 


NO. 

TANK 

BMP 

BRDM 

Destroy 
MOE 

Start 

Lost 

Start 

Lost 

Start 

Lost 

1 

K) 

4 

21 

17 

2 

1 

0.6667 

-) 

4 

4 

14 

8 

2 

1 

0.6500 

3 

6 

1 

16 

3 

2 

2 

0.2500 

-4 

14 

6 

23 

4 

4 

1 

0.2683 

5 

12 

8 

10 

3 

4 

2 

0.5000 

6 

13 

4 

23 

9 

4 

L 

0.3750 

7 

19 

4 

32 

7 

4 

2 

0.2364 

8 

13 

10 

29 

18 

5 

2 

0.6383 

9 

28 

2") 

63 

39 

4 

2 

0.6632 

10 

19 

1 

20 

5 

4 

7 

0.3023 

11 

13 

9 

29 

15 

5 

2 

0.5532 

12 

16 

13 

33 

28 

7 

6 

0.8393 

13 

21 

2 

24 

4 

5 

2 

0.1600 

14 

16 

10 

18 

15 

5 

7 

0.6923 

3.     Survival  MOE 

The  second  MOE,  termed  the  Survival  MOE,  is  calculated  as  the  total  number 
of  friendly  systems  surviving  the  attack  divided  by  the  total  number  of  friendly  systems 
at  the  start  of  the  attack,  for  each  observation  / : 


Friendlv(7'<7//A5/ +  BFVs,+  TO  IVs^surviving 

Survival  MOE,  =  — =-: — 77-7= — ; 7777; -^.,,  : : 

'        Fnen6\y{Tanksl  +  BF\  st  +  TOU  ^starting 


The  data  collected  for  the  heavy/light  deliberate  attacks  and  calculation  of  the  Survival 
MOE  is  shown  in  Table  3.  The  combined  heavy  and  light  forces  achieved  a  mean  sur- 
vival rate  of  32.3%  of  starting  forces,  with  a  standard  deviation  of  only  9.4%.  In  this 
case,  the  range  of  friendly  force  survival  is  from  21%  to  approximately  51%.  Table  4 
contains  the  data  for  the  heavy  force  deliberate  attack  missions.     The  heavy  forces 
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Tahle  2.     HEAVY  FORCE  OPrOR  DESTRUCTION  DATA 


NO. 

TANK 

BMP 

BRDM 

Destroy 
MOE 

Start 

Lost 

Start 

Lost 

Start 

Lost 

1 

8 

2 

10 

6 

0 

0 

0.4444 

i 

8 

1 

IS 

7 

0 

0 

0.3077 

3 

35 

30 

15 

11 

3 

2 

0.8113 

4 

8 

7 

15 

8 

0 

0 

0.6522 

5 

S 

8 

16 

16 

1 

0 

0.9600 

6 

38 

17 

81 

30 

6 

5 

0.4160 

7 

8 

2 

16 

6 

2 

2 

0.3846 

S 

14 

11 

44 

31 

2 

2 

0.7333 

9 

4 

3 

14 

10 

3 

2 

0.7143 

10 

12 

2 

30 

9 

3 

1 

0.2667 

11 

18 

9 

32 

21 

2 

2 

0.6154 

12 

22 

5 

38 

9 

4 

1 

0.2344 

13 

22 

11 

49 

14 

2 

0 

0.3425 

14 

13 

10 

35 

25 

3 

3 

0.7451 

15 

39 

5 

26 

19 

5 

3 

0.3857 

16 

21 

7 

38 

9 

2 

0 

0.2623 

17 

6 

6 

18 

16 

3 

2 

0.8889 

18 

6 

4 

IS 

13 

3 

2 

0.7037 

19 

13 

7 

21 

16 

3 

2 

0.6757 

2<) 

19 

3 

34 

5 

4 

1 

0.1579 

21 

39 

8 

53 

29 

4 

1 

0.3958 

->"> 

19 

8 

49 

15 

6 

2 

0.3378 

23 

15 

3 

16 

4 

10 

2 

0.2195 

24 

IS 

4 

35 

10 

10 

0 

0.2222 

25 

13 

6 

25 

17 

10 

6 

0.6042 

26 

17 

5 

24 

10 

6 

4 

0.4043 

achieved  a  mean  survival  of  23.3%  of  friendly  forces,  with  a  standard  deviation  of 
13.6%,  and  ranged  from  total  force  losses  to  57%  survival.  In  terms  of  friendly  survival, 
the  combined  heavy/light  forces  obtained  slightly  higher  protection  than  did  heavy  forces 
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operating  alone.     Note,  however,  that  these  data  do  not  reflect  the  losses  to  light 
infantry;  only  armor  systems  are  considered. 


Table 

3.     HEAVY/LIGHT 

FRIENDLY  SURVIVAL  DATA 

NO. 

TANK 

HI  V 

Arc 

I  TV/TOW 

Survival 
MOE 

Start 

Lost 

Start 

Lost 

Start 

Lost 

1 

27 

9 

23 

12 

24 

13 

0.5135 

2 

74 

40 

IS 

5 

28 

21 

0.3750 

■* 

31 

2o 

44 

26 

13 

6 

0.4091 

4 

27 

26 

59 

39 

10 

4 

0.2S13 

5 

26 

24 

57 

28 

10 

8 

0.2473 

() 

24 

17 

58 

32 

13 

7 

0.4105 

7 

27 

22 

26 

18 

17 

13 

0.2429 

S 

25 

21 

31 

26 

31 

13 

0.3103 

V 

52 

32 

64 

58 

29 

21 

0.2345 

10 

24 

24 

56 

24 

12 

8 

0.3913 

11 

26 

23 

56 

43 

28 

21 

0.2091 

12 

43 

37 

70 

31 

39 

22 

0.4079 

13 

14 

28 

27 

20 

12 

4 

2 

0.2115 

21 

17 

29 

IS 

25 

19 

0.2800 

11.     ANALYSIS 

As  stated,  only  those  quantifiable  measures  of  effectiveness  were  considered.  Of 
significant  importance  in  the  heavy/light  analysis  is  the  absence  of  loss  figures  for  dis- 
mounted infantry.  This  is  an  unfortunate  consequence  of  the  limitations  of  the  NTC  to 
collect  data  which  adequately  reflect  the  quantity  and  cause  of  infantry  losses,  and  in- 
consistencies in  the  data  that  do  exist. 

There  are  several  factors  that  are  not  considered  when  analyzing  the  data  from  a 
purely  start/loss  perspective.  Comments  from  the  observer/controllers  (OCs),  which 
observe  and  evaluate  each  mission,  provide  valuable  insight  into  the  apparent  inability 
of  the  heavy  and  light  forces  to  achieve  a  measurable  increase  in  effectiveness  on  the 
integrated  battlefield. 

An  equipment  shortcoming  directly  affects  the  ability  of  the  light  force  to  achieve 
kills  against  OPl'OR  armored  equipment  in  the  NTC  environment.    The  primary"  light 
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Table 

4.     HEAVY  1 

FORCE  FRIENDLY  SURVIVAL  DATA 

NO. 

TANK 

nrv 

I  TV 

Survival 
MOE 

Stan 

Lost 

Start 

Lost 

Start 

Lost 

1 

15 

14 

38 

22 

8 

3 

0.3607 

2 

38 

21 

23 

18 

4 

4 

0.33S5 

3 

39 

26 

19 

14 

3 

0 

0.3443 

4 

26 

18 

21 

20 

0 

0 

0.1915 

5 

23 

16 

28 

22 

10 

7 

0.2623 

6 

47 

27 

62 

34 

13 

6 

0.4508 

7 

25 

14 

31 

27 

10 

4 

0.3182 

8 

45 

4-1 

55 

47 

7 

4 

0.1121 

9 

26 

22 

21 

19 

5 

4 

0.1346 

10 

36 

29 

16 

7 

6 

3 

0.3276 

11 

75 

60 

37 

24 

10 

3 

0.2869 

12 

38 

38 

16 

16 

0 

0 

0.000 

13 

22 

16 

32 

23 

11 

4 

0.3385 

14 

61 

26 

49 

24 

11 

2 

0.5702 

15 

60 

57 

51 

36 

10 

7 

0.1736 

16 

32 

28 

20 

18 

0 

0 

0.1154 

17 

22 

16 

25 

15 

11 

8 

0.3276 

18 

21 

17 

25 

22 

10 

10 

0.1250 

19 

24 

20 

28 

26 

0 

0 

0. 1 1 54 

20 

11 

9 

41 

34 

8 

4 

0.2167 

21 

33 

31 

71 

54 

9 

5 

0.2035 

22 

38 

26 

26 

18 

0 

0 

0.3125 

23 

20 

20 

22 

13 

3 

1 

0.2444 

24 

21 

21 

24 

21 

3 

3 

0.0625 

25 

20 

19 

23 

23 

3 

3 

0.0217 

26 

29 

28 

26 

21 

0 

0 

0.1091 

-  -■ 

infantry  anti-tank  system  is  the  Dragon  missile,  a  man  portable,  optically  tracked,  wire 
guided  missile,  designed  to  defeat  most  enemy  armor.  The  Dragon  has  a  MILES 
counterpart;  the  standard  day  tracker  has  an  integrated  MILES  firing  device.    Infantry 


15 


Dragon  gunners  also  train  to  engage  targets  at  night  using  the  AN  TAS-5  Thermal 
Night  Sight.  However,  there  is  currently  no  night  vision  device  with  integrated  MILES; 
hence,  infantry  units  operating  during  limited  visibility  conditions  are  unable  to  kill 
armored  targets,  which  significantly  reduces  their  ability  to  contribute  to  the  battle  in  a 
measureable  sense. 

Another  frequent  OC  comment  is  the  susceptibility  of  light  infantry  to  the  effects 
of  indirect  fires.  Once  detected,  artillery  frequently  renders  the  infantry  ineffective  before 
the  dismounted  force  reaches  the  objective.  The  terrain  of  the  NTC  offers  little  cover 
to  the  effects  of  indirect  fires. 

The  typical  modus  operandi  of  an  NTC  heavy  light  deliberate  attack  is  a  product  of 
the  NTC  training  environment.  Without  targetable  OPFOR  battlefield  operating  sys- 
tems other  than  the  maneuver  forces,  the  friendly  commander  frequently  resorts  to 
tasking  the  light  infantry  battalion  to  attack,  under  cover  of  darkness,  to  seize  an  initial 
foothold  in  the  enemy  defenses,  breach  obstacles,  and  establish  lanes  through  which  the 
heavy  force  will  pass  to  maintain  the  momentum  of  the  attack.  Such  attacks  are  typi- 
cally frontal,  the  least  desirable  form  of  maneuver  in  the  deliberate  attack.  Not  only 
does  this  method  employ  the  light  force  against  an  enemy  it  is  not  designed  to  defeat, 
given  the  terrain,  it  is  further  complicated  when  combining  forces  not  accustomed  to 
each  other's  capabilities,  limitations,  and  standard  operating  procedures.  Frequent  OC 
comments  indicate  that  the  heavy  light  deliberate  attack  increases  the  overall  complexity 
of  the  operation,  as  suggested  by  operational  problems  ranging  from  land  navigation, 
failure  of  the  light  force  to  gain  the  initial  foothold,  unrehearsed  recognition  signals, 
friendly  fire  casualties  resulting  from  the  light  force  presence  in  the  objective  area,  and 
loss  of  momentum  at  the  passage  point.  Clausewitz,  the  oft  cited  military  theoretician, 
might  have  described  this  as  the  'fog  of  war'  [Ref.  6]. 

Unquestionably,  the  major  objective  of  the  friendly  force  is  the  destruction  of  the 
enemy's  maneuver  elements.  However,  with  the  introduction  of  light  forces  into  the 
organization, 

...the  legitimacy  of  such  an  approach  comes  into  question.  We  have  proved  over 
and  over  that  in  a  confrontation  between  light  and  heavy  combat  forces,  in  other 
than  close  terrain,  light  forces  incur  a  significant  disadvantage.  Nonetheless,  be- 
cause of  the  inability  of  our  training  centers  to  provide  a  scenario  that  incorporates 
the  cumulative  impact  of  indirect  attacks  on  combat  support,  CSS  and  command 
and  control  throughout  the  depth  of  the  battlefield,  light  forces  are  generally  re- 
quired to  be  employed  in  a  manner  which  ill  suits  their  utility  in  such  an 
environment.  [Ref.  3:  pp.  31-32] 
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The  opportunity  for  the  light  force  to  attack  enemy  BOS  and  conduct  deep  operations 
does  not  exist.  The  introduction  of  light  forces  provides  the  means  to  attack  the  enemy 
in  depth  while  concentrating  their  efforts  against  enemy  elements  they  are  capable  of 
defeating.  Employed  in  this  context,  the  simultaneity  of  attack  by  heavy  and  light  forces 
poses  a  dilemma  for  the  enemy,  which  is  a  fundamental  element  of  successful  comple- 
mentary force  operations. 
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III.     LIGHT  INFANTRY  ATTACK  SIMULATION 

A.  PURPOSE 

1.  Mission  Planning 

The  light  infantry  attack,  simulation  provides  a  useful  planning  tool  to  prepare 
units  for  operations  in  mid-to-high  intensity  conflict.  As  a  planning  device,  the  simu- 
lation model  allows  the  battle  staff  planner  to  simulate  various  courses  of  action  devel- 
oped in  the  planning  process,  and  to  predict  outcomes.  The  light  infantry  attack  model 
emphasizes  intelligence  and  operations  estimates.  The  intent  of  the  simulation  is  to  en- 
able exploration  of  various  courses  of  action  based  on  the  current  estimate  of  the  enemy 
situation,  assist  in  the  decision  making  process,  and  examine  light  infantry  doctrine  in  a 
mid-to-high  intensity  environment. 

2.  Battle  Analysis 

The  simulation  model  can  also  be  employed  as  a  training  analysis  tool.  The 
CTC  data  archives  provide  the  input  information  so  that  results  of  actual  CTC  battles 
can  be  compared  to  simulated  outcomes.  The  simulation  can  be  designed  to  replicate 
CTC  battles  to  assist  in  evaluating  unit  performance.  Additionally,  as  a  training  device, 
the  user  can  compare  results  of  alternative  courses  of  action  with  those  of  the  actual 
battle  plan. 

B.  MODEL  PROGRAMMING 

MODSIM  II  is  a  general  purpose,  modular  programming  language  which  provides 
highly  portable,  object-oriented  programming  and  discrete  event  simulation  [Ref.  7]. 
The  modular  concept  adds  flexibility  in  programming  and  encapsulates  objects  which 
can  then  be  imported  for  use  in  other  programs.  Modules  consist  of  three  types:  defi- 
nition, implementation,  and  a  main  module.  Definition  modules  contain  a  set  of  defi- 
nitions for  export  to  other  modules;  implementation  modules  contain  the  actual  code  for 
executing  the  defined  methods.  A  main  module  is  the  only  required  module,  and  con- 
tains the  routine  of  the  program. 

MODSIM  II  provides  dynamic  allocation  of  objects,  records,  and  arrays.  Objects 
contain  fields  and  methods;  methods  contain  a  sequence  of  instructions  which  manipu- 
late the  object's  variable  fields.  ASK  METHODS  are  synchronous  methods,  and  do  not 
elapse  simulation  time  when  executed.  TELL  METHODS  are  asynchronous,  time 
elapsing  sets  of  instructions,  which  when  implemented,  are  placed  on  the  simulation 
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calendar  and  executed  in  time  sequence.  PROCEDURES  are  another  construct  which 
perform  computations  and  other  instructions  in  similar  fashion  as  subroutines  in  other 
programming  languages. 

C.     MODEL  EXECUTION 

1.  Force  Representation 

The  light  infantry  attack  simulation  represents  both  friendly  and  enemy  forces 
in  object  code.  The  friendly  forces  are  hierarchically  organized  from  battalion  down  to 
ATGM  level,  while  the  opposing  forces  are  represented  as  a  series  of  distinct  objects 
arrayed  on  the  battlefield.  Figure  3  depicts  the  friendly  force  organization  in  the  attack 
simulation. 

Friendly  forces  consist  of  a  battalion  headquarters  and  three  rifle  companies, 
each  consisting  of  three  rifle  platoons.  The  rifle  platoon  is  uniquely  defined  in  two 
components:  the  platoon  headquarters  and  the  elements  of  the  platoon's  firepower  ca- 
pability. The  headquarters  executes  unit  activities,  such  as  movement  or  message  pass- 
ing. The  firepower  capability  (FPC),  also  defined  in  object  code,  executes  individual 
soldier  activities,  such  as  firing.  The  FPC  discretely  represents  the  major  anti-armor 
systems  in  an  infantry  platoon,  while  maintaining  a  numerical  accounting  for  the  sum 
of  all  remaining  elements,  including  leaders,  riflemen,  automatic  riflemen,  grenadiers,  and 
machine  gunners. 

2.  Execution 

Once  compiled.  MODS1.M  II  creates  an  executable  file  with  the  same  name  as 
the  main  module.  The  model  is  executed  simply  by  invoking  the  name  of  the  model. 
This  is  another  feature  which  contributes  to  the  exportability  of  MODSIM  programs. 
The  light  infantry  attack  simulation  is  executed  with  the  command  Attack.  A  brief  de- 
scription of  the  flow  of  the  model  follows. 

The  model  begins  and  queries  the  user  to  select  the  tactical  experiment,  which 
is  coordinated  to  a  particular  input  file.  The  choices  include  execution  of  the  baseline 
model,  a  flank  attack  model,  or  a  rear  attack  model.  The  scenarios  are  discussed  in  more 
detail  in  Chapter  IV.  A  second  menu  provides  the  user  the  opportunity  to  conduct  a 
"walk-through"  of  the  model  or  to  replicate  an  input  number  of  iterations.  The  walk- 
through writes  output  comments  to  the  screen  for  the  user  to  observe  as  the  model 
progresses.  A  selection  to  replicate  will  prompt  the  user  to  input  the  number  of  iter- 
ations, run  without  output  to  the  screen,  collect  the  critical  data,  and  write  this 
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Figure  3.      Friendly  Force  Organization  in  the  Model 


information  to  the  output  file.  After  entering  the  desired  selection,  the  model  reads  the 
selected  input  file  and  begins. 

Once  all  of  the  model  parameters  are  read  from  the  appropriate  data  files,  the 
model  creates  a  battalion  object  and  stores  it  in  the  reference  variable  LiglitFightcrs. 
This,  in  turn,  allocates  each  of  the  subordinate  units  in  the  hierarchy.  An  instruction  is 
passed  to  the  Light  Fighters  to  execute  the  mission,  and  the  simulation  commences. 

The  flow  of  the  model  from  the  point  at  which  the  battalion  is  instructed  to 
execute  the  mission  follows  a  doctrinal  representation  of  the  deliberate  attack  mission. 
The  companies  execute  their  movement  plans,  which  simulate  movement  from  the  attack 
position,  crossing  the  line  of  departure,  moving  through  a  series  of  checkpoints,  and 
occupation  of  the  assault  position.  Upon  arrival  in  the  assault  position,  the  platoons 
occupy  their  initial  firing  positions,  and  prepare  to  engage  assigned  targets.  Since  the 
battalion  initially  conducts  a  synchronized  attack,  the  Dragon  gunners  hold  fires  until 
all  units  report  "set"  and  the  battalion  instructs  the  companies  to  attack.     Once  a 
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company  completes  the  initial  attack,  the  company  moves  to  an  intermediate  objective 
from  which  to  reengage  targets  which  were  not  destroyed.  The  model  terminates  when 
all  companies  have  completed  the  final  assault  and  either  all  targets  are  destroyed  or  the 
unit  is  out  of  ammunition. 

D.     MODEL  DESIGN 
1.     Model  Components 

The  light  infantry  attack  simulation  consists  of  23  modules:  11  definition,  11 
implementation,  and  one  main  module.  The  simulation  code  is  contained  in  Appendix 
A.   A  brief  description  of  the  principal  components  of  the  model  follows: 

a.  Attack 

Main  module  Attack  sets  the  routine  of  the  program.  The  module  imports 
several  procedures  to  setup  the  background  data  for  the  program.  These  procedures 
include  setting  the  seeds  for  the  random  number  generators,  reading  the  transportation 
and  missile  system  parameters,  modeling  the  enemy  defense,  and  reading  the  data  to 
model  the  unit  operations  plan.  Additionally,  the  main  module  creates  the  battalion  and 
all  subordinate  units,  implements  the  battalion  object's  TELL  METHOD 
ExecuteMission,  and  starts  the  simulation. 

b.  Glob  ah 

The  Globah  definition  and  implementation  modules  include  selected  vari- 
ables which  may  be  seen  throughout  the  program.  These  variables  include  the  random 
number  generators,  and  variables  defining  characteristics  of  the  battlefield,  such  as  visi- 
bility condition,  weapons  status,  and  transportation  data.  The  implementation  module 
sets  the  values  of  these  variables  at  run-time,  allocates  the  random  number  generators, 
and  opens  the  output  files. 

c.  Unit 

The  Unit  modules  provide  the  structure  for  each  unit  object  in  the  model. 
Units  consist  of  four  levels  of  unit  objects:  UnitObj,  Rifle PlatoonObj,  RifleCompanyObj, 
and  BattalionObj.  The  generic  UnitObj  defines  fields  and  methods  common  to  all  units, 
and  are  inherited  by  each  of  the  other  specific  units.  The  methods  of  each  of  the  units 
define  events  which  normally  occur  at  unit  level,  such  as  movement  along  a  specified 
route,  occupation  of  firing  positions,  and  target  assignments.  The  battalion  object  has, 
in  addition  to  its  other  fields,  a  trigger  object.  The  trigger  object  provides  a  means  of 
synchronizing  events  in  the  simulation.  An  identification  field  is  attached  to  each  unit; 
companies  are  named  A,  B,  and  C.     Additionally,  within  companies,  for  example, 
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platoons  are  further  identified  as  Al,  A2,  or  A3.   The  use  of  identifiers  is  a  critical  asset 
when  viewing  the  model  in  progress  and  reviewing  output  files. 

d.  Firepower  Capability  ( FPC) 

The  FPC  modules  are  an  element  of  the  model  architecture  whose  purpose 
is  to  define  methods  focused  at  the  soldier  level.  The  separation  between  platoon  events 
and  events  within  the  FPCObj,  is  a  means  of  encapsulating  events  occurring  at  squad, 
fireteam.  and  individual  soldier  level.  The  FPCObj  performs  the  numerical  accounting 
of  each  subordinate  element  within  a  rifle  platoon's  firepower  capability.  Additionally, 
the  FPC  discretely  allocates  the  platoon's  ATGM  gunners  as  object  variables.  The 
methods  perform  both  accountability  and  message  passing.  The  FPCObj  also  has  an 
identification,  which  corresponds  exactly  with  the  parent  platoon. 

e.  ATGM 

The  A  TCM  modules  detail  the  direct  fire  capability  of  the  unit.  The 
ATGMObj  contains  in  its  fields  the  missile  data  read  at  the  start  of  the  program.  The 
methods  detail  the  engagement  sequence  of  an  ATGM  gunner  and  include  preparation 
of  the  round,  target  acquisition,  tracking,  and  assessment  of  target  damage.  Addi- 
tionally, the  ATGM  objects  contain  a  trigger  mechanism,  which  grants  permission  to  the 
gun  to  fire  based  on  current  weapons  status  or  once  the  synchronized  attack  commences. 
Each  ATGM  is  also  given  an  identity.  The  ATGM  identity  consists  of  the  platoon 
(FPC)  to  which  it  belongs,  appended  with  the  number  assigned  to  each  system,  either 
one  or  two.  For  example,  an  ATGM  identity  of  A12  signifies  A  company,  first  platoon, 
second  ATGM  gunner. 

/.     Map  Reconnaissance 

The  MapRecon  modules  contain  a  procedure  to  read  a  user  constructed  data 
file  which  is  built  during  the  planning  process  or  to  reconstruct  a  battle.  Additionally, 
MapRecon  allocates  records  to  store  positional  information,  and  connects  them  in  a 
linked  list  to  form  the  unit  movement  routes.  The  MapRecon  module  also  contains  the 
Distance  procedure.  Distance  takes  as  input  arguments,  two  locations  in  UTM  grid  co- 
ordinates (six-digit,  10U  meter  coordinates  with  two  letter  grid  zone  identifier),  and  de- 
termines the  straight  line  distance  between  the  two  points. 
g.     OPFOR 

The  OPFOR  modules  explicitly  define  each  OPFOR  vehicle  on  the  battle- 
field as  an  Enemy  VehicleObj.  The  ModelEnemy Defense  procedure  reads  data  from  an 
input  file,  creates  each  OPFOR  system,  and  assigns  each  system  the  input  attributes. 


As  a  planning  tool,  the  user  inputs  data  based  on  available  intelligence;  as  an  analytic 
device,  the  user  inputs  actual  data  gathered  from  the  various  sources. 
h.     Impact 

The  Impact  module  contains  two  procedures:  a  procedure  to  determine  the 
engagement  aspect  angle,  and  a  procedure  to  assess  damage  to  a  target.  The  procedure 
Aspect  Angle  employs  a  vector  mathematics  formulation  to  determine  the  angle  between 
the  gun-target  vector  and  the  target  orientation  vector.  The  result  of  the  procedure  call 
is  a  determination  of  where  on  the  target  the  round  impacted  as  either  front,  flank,  or 
rear.  This  information  is  passed  to  the  AssessDamage  procedure  which  performs  a 
Monte  Carlo  draw  on  a  random  number  generator,  compares  the  sample  to  the  missile 
system's  probability  of  kill  for  that  target  and  impact  point  combination,  and  returns  the 
assessment  of  whether  the  target  is  killed  or  damaged. 
I.      Weapons 

The  Weapons  modules  contain  two  procedures  to  read  the  specific  weapon 
system  characteristics  and  the  probability  of  kill  data.  The  user  supplies  the  data  for  the 
program  to  read  from  a  data  file.  The  kill  probability  data  used  in  this  model  are  merely 
approximations  of  actual  data  under  similar  conditions.  The  data  include  an  estimate 
of  the  probability  of  kill  for  a  Dragon  missile  versus  four  different  OPFOR  vehicles  in 
frontal,  flank,  and  rear  engagements. 
j.     Artillery 

The  Arty  modules  define  the  procedure  ScheduleOPFORArtillery  which 
computes  the  probability  of  kill  of  the  OPFOR  artillery  against  the  light  forces.  The 
model  employs  a  Confetti  approximation,  assuming  the  light  forces  are  uniformly  dis- 
tributed throughout  a  given  target  area.  The  artillery  play  is  scheduled  at  run-time, 
based  on  the  user's  estimate  of  when  movement  will  be  compromised,  and  upon  exe- 
cution of  the  attack.  The  artillerv  model  is  currently  the  onlv  means  of  causing  attrition 
of  the  friendly  forces. 
A.     MOE 

The  MOE  modules  provide  continuous  running  means  and  variances  on  the 
measure  of  effectiveness  for  destruction  of  enemy  forces.    Upon  termination  of  the  run, 
the  critical  statistical  data  is  written  to  an  output  file.    In  addition  to  maintaining  the 
Destroy  MOE,  the  model  computes  the  mean  mission  time  and  mean  level  of  attrition. 
/.     Menu 

The  Menu  modules  increase  the  utility  of  the  model  by  prompting  the  user 
to  select  the  particular  scenario  to  be  run,  and  then  querying  the  user  to  select  an  option 
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to  replicate,  walk-through  the  model  with  artillery  play,  or  walk-through  the  model 
without  artillery  play.  Note  that  the  selection  to  replicate  always  runs  the  model  with 
scheduled  artillery.  A  selection  to  walk-through  the  model  either  with  or  without  artil- 
lery allows  the  user  to  observe  unit  movements,  occurrence  of  the  artillery  strikes,  and 
results  of  each  engagement.  A  selection  to  replicate  further  prompts  the  user  to  input 
the  number  of  replications,  and  the  model  runs  without  providing  comments  to  the 
screen,  position  such  that  the  platoon  can  engage,  move,  and  engage  again. 
2.     Use  of  Random  Number  Generators 

The  light  infantry  attack  simulation  uses  four  distinct  random  number  genera- 
tors. The  use  of  separate  random  number  generators  ensures  comparability  between 
multiple  runs  of  the  simulation,  and  is  one  of  many  techniques  of  variance  reduction 
[Ref.  S:  p.  41].  Random  number  generators  are  provided  for  sampling  missile  hit  prob- 
abilities, probabilities  of  kill  against  vehicular  targets,  indirect  fire  losses,  and  selection 
of  the  number  of  rounds  per  gun  fired  in  an  artillery  barrage. 

E.     MODEL  CAPABILITIES 

The  light  infantry  attack  model  simulates  unit  movements,  direct  and  indirect  fire 
engagements,  force  attrition,  and  target  assignments.   A  general  description  of  the  algo- 
rithms used  to  implement  these  capabilities  follows. 
1.     Movement 

The  movement  algorithm  is  a  time-elapsing  method  common  to  all  Unit  objects. 
There  are  two  key  elements  of  the  Move  To  method:  identification  of  the  destination,  and 
determination  of  the  movement  time,  which  requires  a  measurement  of  the  distance 
involved. 

a.     Position  Identification 

Positional  information  in  the  light  infantry  attack  simulation  is  stored  in  a 
RECORD  data  structure.  A  record  is  dynamically  allocated,  contains  variable  fields, 
and  differs  from  an  object  in  that  it  has  no  methods  which  operate  on  its  fields.  A  record 
can  contain  a  reference  variable  of  another  record,  thus  facilitating  construction  of 
linked  lists.  Position  records  store  the  doctrinal  name  of  the  position,  such  as  ATK  PSN, 
a  six  digit  center  of  mass  grid  coordinate  (with  two  letter  identifier)  for  the  location,  the 
locations  of  firing  positions,  if  any.  and  a  reference  variable  which  points  to  the  next 
position  record  along  the  unit's  route.  In  this  way,  units  may  be  "told"  to  move  to  the 
next  position,  with  all  the  required  information  attached. 
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b.  Distance 

Computing  the  distance  between  two  points  given  in  grid  coordinates  is 
subject  to  the  constraint  that  the  two  points  will  lie  in  two  regions  covered  by  adjacent 
L'TM  grid  zone  identifiers  (this  includes  diagonally  adjacent  regions).  The  Distance  pro- 
cedure, defined  in  the  MapRecon  module,  first  compares  the  grid  zone  identifiers  and 
then  "normalizes"  the  relationship  between  the  two  points.  The  computation  is  then  an 
application  of  the  Pythagorean  Theorem,  and  the  resulting  distance  is  returned  in  me- 
ters. For  example,  to  find  the  distance  between  NK900150  and  NL030200,  the  algorithm 
first  compares  NK  to  NL  and  identifies  the  points  as  lying  in  horizontally  adjacent  grid 
zones.  The  algorithm  then  normalizes  the  easterly  coordinate  030  (interpreted  as  3.0 
kilometers)  to  1030  so  that  the  subtraction  1030  —  900  yields  a  horizontal  change  in 
distance  of  13.0  kilometers.  The  vertical  change  is  5.0  kilometers,  yielding  a  distance  of 
13.928.4  meters. 

c.  Movement  Time 

On  implementation  of  MoveTo,  the  algorithm  sets  the  field  value  for  the 
movement  start  time  as  the  current  simulation  time.  The  movement  rate,  R,  is  computed 
as 

R-ij  =  CFj  MRjj  , 

where  /  =  transportation  type,  j  =  visibility  condition.  MR  is  a  matrix  of  movement 
rates,  and  CF  is  an  array  of  conversion  factors  to  convert  movement  rates  given  in  knots 
or  kilometers  hour  to  meters  sec.  Movement  rates  are  input  based  on  data  obtained 
from  appropriate  FMs.  For  example.  Table  16-14,  FM  5-34,  gives  the  rate  of  march  of 
infantry  troops,  cross-country,  at  night,  as  1.6  km  hr  [Ref.  9].  Movement  time,  T,  is  then 
computed  using  the  standard  formula  T=DjR  ,  where  distance,  D,  in  meters,  is  ob- 
tained from  a  call  to  the  distance  procedure.  The  method  then  waits  the  indicated  time 
to  move,  and  then  updates  the  unit's  position  to  the  new  position.  In  a  situation  where 
movement  is  interrupted,  as  during  an  artillery  strike,  the  algorithm  computes  the 
amount  of  time  remaining  to  complete  the  move,  adds  an  arbitrary  constant  regroup 
time,  and  waits  the  remaining  time  before  updating  the  unit's  location. 
2.     Direct  Fires 

Direct  fires  in  the  light  infantry  attack  simulation  model  only  the  major  anti- 
armor  systems  organic  to  light  infantry  units.  Only  the  Dragon  anti-tank  guided  missile 
system  is  modeled;  however,  the  A  TGMObj  is  intended  to  be  generic  to  both  Dragon  and 
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TOW  systems.  Direct  fire  engagements  model  preparation  of  the  missile,  acquisition  of 
the  target  (range  checking),  firing,  tracking  and  damage  assessment,  and  taking  the 
launcher  out  of  action.  Each  stage  in  the  engagement  sequence  is  a  method  of  the 
ATGMObj.  The  methods  model  the  engagement  sequence;  determination  of  the  result 
of  the  engagement  is  a  two  step  process  which  involves  computation  of  the  engagement 
aspect  angle  and  damage  assessment. 
a.     Engagement  Aspect  Angle 

The  engagement  aspect  angle  is  determined  by  a  call  to  the  procedure 
AspectAngle  contained  in  the  Impact  module.  The  aspect  angle  formula  employed  in  the 
procedure  is  a  result  of  the  following  derivation.  The  engagement  aspect  angle,  a,  de- 
fined as  the  angle  between  the  gun-target  vector  0  and  the  target  orientation  vector  T, 
is  obtained  from  the  formula 

G  •  T  /,n 

COS  ft  =  — ZT"  ■  (1) 

l|G||||71 

To  determine  the  engagement  aspect  angle,  an  arbitrary  coordinate  system 
is  established  such  that  the  target  location  identifies  the  origin,  and  grid  north  (GN) 
defines  0°.    Define 

'  y  =  gun-target  angle 
and 


6  =  target  orientation  angle, 


and  let 


g,  =  the  horizontal  component  of  G  , 

g2  =  the  vertical  component  of  G  , 

/i  =  the  horizontal  component  of  T  , 


and 


i2  =  the  vertical  component  of  T 
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Figure  4a  depicts  the  angular  relationship  of  each  system.    Figure  4b  depicts  the  com- 
ponents of  the  gun-target  vector. 
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Figure  4. 


Gun-Target  relationship 


Missile  location  and  target  location  are  known  and  given  as  UTM  grid  co- 
ordinates.   Placing  the  target  at  the  origin,  y  may  be  computed  as 

♦       g] 
y  =  arctan  -=—  . 

Si 

In  the  case  where  g2  =  0,  y  =  -—•  or  —  — .  Note  that  equation  (1)  suggests  computing  the 
magnitude  of  each  of  the  vectors  to  obtain  a.  However,  since  the  doi  product  is  the  sum 
of  the  products  of  the  components  of  the  vectors,  the  numerator  may  be  expressed  as 


C  .  T  =  gltl  +g2i2 


Furthermore, 


g]  =  ||G||siny 


and 


£2  =  ||G||cosy 
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The  components  of  T  follow  similarly,  so  that  (1)  may  be  rewritten  as 


cos  y.  = 


IGllHrilsin;-  sin  g  4-  \\G\\\\T\\  cos  y  cos  6 
\\0\\\\f\\ 


(2.) 


Factoring  ||G|ili7]|,  (2)  reduces  to 

cos  y.  =  sin  y  sin  6  +  cos  y  cos  6. 
Thus,  the  engagement  aspect  angle  y.  is  simply 

a  =  arccos  (  sin  y  sin  6  +  cos  y  cos  6). 


(3) 


(4) 


Equation  (4)  is  the  formula  which  appears  in  the  Aspect  Angle  procedure. 

Once  y.  is  determined,  it  is  translated  to  an  impact  area  on  the  target.  As- 
suming all  targets  are  symmetric  about  their  center  of  mass,  the  impact  areas  are  defined 
as 


impact  area 


front,  for  -45°  <  a  <  45° 
45°<a<  135° 
^225°<a<315c 
rear,   for     135°<a<225° 


flank,  for 


Figure  5  depicts  the  impact  areas.    The  impact  area  is  then  passed  to  the  damage  as- 
sessment procedure  to  determine  the  results  of  the  engagement. 
b.     Damage  Assessment 

Damage  assessment  is  determined  by  a  call  to  the  Assess  Damage  procedure 
in  the  Impact  module.  AssessDamage  requires  three  input  arguments:  weapon  type, 
target  type,  and  impact  area.  The  procedure  determines  the  probability  of  kill  for  the 
appropriate  missile  impacting  the  target  in  the  given  area.  A  sample  is  selected  from  a 
random  number  generator  and  compared  to  the  kill  probability.  The  procedure  returns 
a  resulting  kill  or  damage  outcome  for  the  engagement. 
3.     Indirect  Fires 

The  indirect  fire  model  in  the  light  infantry  attack  simulation  provides  the  means 
of  causing  attrition  to  the  light  force.  Assuming  that  the  individual  target  elements  are 
uniformly  distributed  throughout  the  target  area,  and  the  incoming  rounds  impact  uni- 
formly throughout  the  target  area,  and  assuming  no  rounds  land  outside  the  target  area 
and  there  are  no  edge  effects,  let  PK  represent  the  fraction  of  target  elements  killed. 
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Figure  5.      Impact  Area  Designation 

Given  these  assumptions,  the  procedure  ScheduleOPFORArtillery  in  the  Arty  module 
employs  the  confetti  approximation 

^=(i-,-^)2, 

where  z  =  — — ,  n  is  the  number  of  rounds  fired,  a  is  the  lethal  area  of  one  round,  and  /] 
A 

is  the  target  area  [Ref.  10].  For  the  purposes  of  this  model,  the  target  area  is  defined  to 
be  a  rectangular  area  measuring  260  meters  by  1 10  meters,  which  corresponds  to  the  size 
of  the  "IFCAS"  box  used  in  the  NTC  rules  of  engagement  [Ref.  11].  The  parameter  re- 
presenting the  lethal  area  of  one  round  is  an  approximation  of  the  lethal  area  of  the 
OPFOR  122mm  high  explosive  artillery  round  against  infantry  troops  in  the  open.  Ad- 
ditionally, ScheduleOPFORArtillery  randomly  selects  an  integer  number  of  rounds  per 
gun,  between  1  and  3,  fired  by  an  OPFOR  battery  of  six  guns.  Under  this  approxi- 
mation, one  scheduled  artillery  barrage  may  result  in  a  random  casualty  assessment 
ranging  from  approximately  22%  to  approximately  45%. 
4.     Attrition 

The  light  infantry  forces  modeled  in  the  simulation  may  be  attritted  by  OPFOR 
artillery  only.  In  its  current  configuration,  the  user  schedules  the  artillery  based  on  an 
assessment  of  the  probable  times  at  which  movement  will  be  compromised  or  upon 
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detection  of  the  attack.  Any  or  all  of  the  infantry  companies  may  be  scheduled  to 
receive  indirect  fires.  When  the  simulation  time  reaches  the  scheduled  time,  the 
company  object's  Artitterylnterrupl  method  is  invoked.  This  method  accomplishes  two 
tasks:  first,  it  interrupts  the  unit's  current  activity,  and  second,  it  invokes  the  platoon- 
level  method  TakeCasualties  and  passes  the  loss  percentage. 

The  Artillery-Interrupt  method  causes  execution  of  the  unit's  movement  and  en- 
gagement methods  to  halt  prematurely.  A  movement  interrupt  simply  causes  the  unit 
to  elapse  additional  time  while  "regrouping"  before  completing  the  movement.  An  en- 
gagement interrupt  will  be  passed  down  to  ATGM  level  and  terminate  all  methods  in  the 
engagement  sequence.  In  particular,  if  the  A  TGMObj  is  tracking,  the  missile  will  be  lost; 
otherwise,  the  process  will  wait  the  constant  regroup  time  before  starting  over.  In  ad- 
dition to  early  termination  of  the  unit's  methods,  the  unit  will  be  assessed  casualties. 

Casualties  are  managed  in  the  model  within  the  platoon's  FPCObj.  Invoking 
the  platoon's  TakeCasualties  method  causes  the  FPCObj  to  implement  Decrement FPC. 
The  Decrement  FPC  method  computes  the  integer  number  of  casualties  represented  by 
the  input  loss  percentage  and  reduces  its  strength  by  the  required  number.  The  selection 
of  personnel  losses  is  completely  random  based  on  a  sample  obtained  from  a  random 
number  generator. 

5.     Target  Assignments,  Reassignments,  and  Target  Handover. 

a.  Target  Assignments 

Assignment  of  targets  to  companies  is  a  user  provided  input  presumably 
based  on  the  assignment  and  location  of  company  objectives.  The  data  is  read  in  by  the 
MoiielOperationsOverlay  procedure  in  the  MapRecon  module,  and  the  targets  are  placed 
on  the  company  target  queue.  During  execution  of  the  simulation,  targets  are  assigned 
to  platoons  upon  arrival  in  the  assault  position.  After  the  platoons  have  occupied  then- 
respective  firing  positions,  the  company  invokes  AssignTargets  which  assigns  targets  to 
platoons  according  to  the  following  heuristic:  start  with  the  most  distant  target;  identify 
the  closest  platoon  to  that  target;  assign  the  target  to  the  platoon;  continue  until  all 
targets  have  been  assigned.  This  heuristic  is  one  of  many  alternative  methods  to  opti- 
mize the  assignment  process. 

b.  Reassignment 

Reassignment  of  targets  occurs  within  the  ReAssign  method  of  the  FPCObj; 
in  other  words,  targets  are  reassigned  within  the  platoon.  A  reassignment  occurs  when 
either  of  two  conditions  occur:  an  ATGM  system  is  out  of  ammunition  and  its  assigned 
target  has  not  been  destroyed,  or  an  ATGM  is  lost  to  artillery.    Furthermore,  should  a 
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condition  occur  such  that  the  platoon  does  not  have  the  assets  to  reassign  the  target  to, 
the  platoon  will  pass  the  target  back  to  the  company  to  handover  to  another  platoon. 
C.      Target  Handover 

The  Target  Handover  method  of  the  Rifle  Company  Obj  is  called  from  a  sub- 
ordinate which  no  longer  has  the  assets  to  engage  a  target.  A  handover  can  occur  within 
a  company;  no  methodology  is  provided  to  pass  the  target  back  to  the  battalion.  The 
handover  algorithm  first  looks  at  each  platoon  to  identify  a  candidate.  A  candidate 
platoon  is  one  that  has  ATGM  ammunition  available  and  is  not  currently  engaging. 
The  next  check  identifies  a  candidate  which  is  currently  in  range  to  engage  the  target  and 
if  one  exists,  immediately  assigns  the  target  to  the  platoon.  If,  on  the  other  hand,  a 
candidate  is  not  in  range,  the  method  then  identifies  the  candidate  closest  to  the  target 
and  tells  the  indicated  platoon  to  move  to  the  appropriate  firing  position  and  engage  the 
target.  If  the  company  no  longer  has  the  assets  to  engage  the  target,  the  target  survives 
and  a  comment  is  written  to  the  output  file. 

F.     MODEL  INPUT 

1.     Scenario  Input 

Scenario  data  within  the  light  infantry  attack  simulation  are  divided  into  two 
functional  areas:    force  composition  and  the  light  force  concept  of  the  operation.    The 
simulation  reads  scenario  input  from  user  developed  data  files,  and  dynamically  allocates 
object  references  at  run-time. 
a.     Forces 

The  model  contains  all  unit  related  data  necessary  to  allocate  the  unit  ob- 
jects and  set  starting  force  strength.  The  light  force  unit  object's  fields  are  set  within  the 
object's  initialization  method,  while  the  opposing  forces  data  are  input  from  a  data  file. 
(I j  Friendly  Forces.  The  light  infantry  battalion  is  hierarchically  organ- 
ized with  three  rifle  companies  of  three  rifle  platoons  each.  Each  rifle  platoon  contains 
an  FPCObj  which  contains  a  numerical  representation  of  each  element  in  the  platoon, 
and  an  ATGMObj  for  each  dragon  gunner  in  the  platoon. 

Current  configuration  of  the  light  infantry  battalion  is  based,  in  part, 
on  the  Modification  Table  of  Organization  and  Equipment  (MTOE)  for  an  Infantry 
Battalion  (Airborne).  This  organization  is  selected  to  facilitate  the  model  architecture 
since  the  ATGM  sections  are  organic  to  rifle  platoons.  The  rifle  platoon's  firepower 
capability  is  managed  by  the  FPCObj.  Starting  force  strength  is  set  according  to  the 
MTOE  above,  assuming  full  strength  at  the  start  of  the  battle. 
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(2)  Opposing  Forces.  The  OPFOR  data  is  supplied  by  the  user  as  an 
input  file.  A  new  enemy  vehicle  object  is  allocated  for  each  OPFOR  system  appearing 
in  the  data  file,  and  its  fields  are  set  with  the  corresponding  data.  There  is  currently  no 
enemy  vehicle  direct  fire  capability. 

b.     Concept  of  the  Operation 

The  light  force  concept  of  the  operation  is  input  to  allow  the  user  to  ex- 
periment with  different  tactics  and  determine  simulated  outcomes  for  each  approach. 
The  input  file  is  constructed  based  on  the  user's  map  reconnaissance  using  the  "back- 
ward planning  process".  Positional  data  is  input  from  the  objective  to  the  attack  posi- 
tion, and  lists  the  unit  target  assignments.  As  the  data  are  read  in,  the  positions  are 
stored  in  a  linked-list,  and  assigned  to  the  appropriate  company.  Two  positions  are 
uniquely  identified  in  the  data  file:  the  assault  position,  and  an  intermediate  objective. 
Both  of  these  positions  have  an  array  of  platoon  Firing  positions,  such  that  once  the 
company  arrives  in  that  position,  the  platoons  deploy  to  their  respective  firing  positions. 
The  intermediate  objective  is  employed  for  the  purpose  of  providing  a  position  such  that 
the  attacker  can  shoot,  move,  and  shoot  again. 
2.     Model  Parameters 

Certain  model  parameters  are  fixed  at  compile-time.  These  include,  for  example, 
the  cross  country  movement  rates  of  dismounted  troops  at  night,  or  the  time  required 
to  prepare  a  Dragon  for  firing.-  Where  available,  the  value  of  the  input  parameter  is 
obtained  from  an  appropriate  field  manual  (FM).  Other  model  parameters  are  input  at 
run-time.  These  parameters  include,  for  example.  ATGM  kill  probabilities  and  weapon 
characteristics.  Whenever  feasible,  parameters  are  read  from  a  data  file  to  provide  the 
user  as  much  flexibility  as  possible. 

G.     MODEL  OUTPUT 

The  model  writes  to  three  output  files:  the  engagement  history  file,  the  attrition  data 
file,  and  the  attack  output  file.  During  a  walk-through,  all  three  files  are  active.  If 
replicating,  only  the  attack  output  file  is  active.  The  engagement  history  file  contains  a 
detailed  listing  of  each  engagement,  by  system  identity  and  target  identity,  and  the  result 
of  the  engagement.  Also  included  is  the  re-assignment  and  target  handover  sequence. 
The  attrition  file  records  the  losses  to  each  platoon  from  indirect  fires.  The  attack 
output  file  contains  the  kill  data  and  measure  of  effectiveness  for  destruction  for  the 
simulation  run. 
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IV.     SIMULATION  ANALYSIS 

A.  GENERAL 

To  demonstrate  the  utility  of  the  model  as  both  an  analytic  and  planning  tool,  three 
scenarios  are  developed.  The  baseline  model  replicates  an  actual  NTC  deliberate  attack 
mission  during  a  heavy/light  rotation:  the  results  of  the  simulation  can  be  compared  to 
the  results  achieved  on  the  battlefield  and  an  analysis  performed  to  highlight  differences. 
The  two  additional  scenarios  demonstrate  the  use  of  the  simulation  as  a  planning  tool 
and  allow  the  user  to  compare  results  of  alternative  tactical  plans  with  those  of  the 
baseline  model.  The  two  alternative  plans  use  the  same  OPFOR  situation  as  the  baseline 
model.  In  general  terms,  the  baseline  model  may  be  characterized  as  a  frontal  attack, 
while  the  alternatives  represent  a  rear  attack  and  a  flank  attack. 

B.  OUTPUT  ANALYSIS 

The  light  infantry  attack  simulation  is  a  terminating  simulation  [Ref.  12:  p.  280].  The 
desired  measure  of  performance  for  the  model  is  defined  as  the  number  of  enemy  vehicles 
destroyed  when  the  friendly  forces  are  no  longer  able  to  engage  targets.  The  simulation 
terminates  and  the  number  of  OPFOR  kills  is  reported  to  the  MOEmean  and 
MOEvariance  procedures  in  the  MOE  modules.  These  procedures  maintain  running 
means  and  variances  over  the  input  number  of  replications.  Let  A'  be  the  random  vari- 
able of  interest  (the  MOE  for  a  single  replication),  then  for  fixed  sample  size  n, 


Tn  /  *V) 

A(«)±r„_u_a/2V-7r- 

yields  an  approximate  100(1  —  a)  percent  confidence  interval,  (0<  a  <  1)  ,  for  the  true 
mean  n,  where  X{n)  is  the  sample  mean  and  s2(n)  is  the  sample  variance  [Ref.  12:  p.  288]. 
For  the  purposes  of  this  analysis,  sample  size  n  =  500  and  significance  level  a  =  0.05  . 

C.     THE  BASELINE  MODEL 

The  baseline  model  serves  as  a  point  of  departure  for  comparison  of  alternative 
tactical  plans  and  outcomes.  Operational  data  for  the  selected  battle  is  extracted  from 
the  numerous  media  available  at  the  CTC  Archive  at  ARI--POM.  Selection  of  a  battle 
upon  which  to  develop  the  baseline  model  was  arbitrary;  however,  numerous  battles 
were  screened  to  ensure  conformity  with  the  typical  modus  operandi  discussed  in  Chapter 
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II,  and  to  select  a  battle  which  produced  favorable  results  in  terms  of  the  measures  of 
effectiveness.   A  brief  description  of  the  selected  battle  follows. 

1.  NTC  Heavy/  Light  Mission  AA89xxxx 

NIC  Heavy  Light  mission  AA89xxxx  is  a  deliberate  attack  mission  of  an 
armored  task  force  with  a  light  infantry  battalion.  The  light  infantry  battalion  con- 
ducted a  night  attack  to  seize  objectives,  orient  fires  towards  the  enemy  to  the  west  and 
assist  the  forward  passage  of  the  armored  task  force.  In  terms  of  destruction  of  the 
OPFOR,  the  attackers  destroyed  66%  of  the  enemy  (Chapter  II,  Table  1,  No.  11). 
However,  the  attackers  also  suffered  80%  casualties  (Chapter  II,  Table  3,  No.  11).  Of 
the  enemy  vehicles  destroyed,  one  is  attributed  to  a  light  force  Dragon.  In  terms  of 
infantry  casualties,  it  must  be  noted  that  OPFOR  direct  and  indirect  fires  attritted  one 
infantry  company  to  live  personnel,  rendered  another  ineffective,  and  produced  light 
casualties  on  the  third.  Finally,  as  the  heavy  task  force  passed  through  the  infantry 
positions,  it  became  decisively  engaged  by  OPFOR  elements  to  the  west  and  north  not 
detected  by  the  light  force.    [Ref.  13] 

a.     Battle  Replay  with  CNA  TT  II 

GNATT  II  is  the  ARI--POM's  General-purpose  NTC  Analysis  Training 
Tool.  GNATT  II  provides  a  personal  computer  capability  for  graphical  playback  of  the 
NTC  data  archive.  GNATT  II  programs  read  four  data  files  which  produce  represent- 
ations of  units,  weapon  systems,  engagements,  and  player  positions.  GNATT  II  enables 
the  user  to  portray  the  battlefield  (terrain  is  not  depicted)  with  individual  vehicles 
emplaced  and  identified  according  to  data  collected  by  the  NTC's  instrumentation  sys- 
tem and  position  location  devices.   |Ref.  14] 

1  he  utility  of  GNATT  II,  in  the  context  of  the  light  infantry  attack  simu- 
lation, is  that  the  user  identifies  the  OPFOR  vehicles  by  type,  and  extracts  the  actual 
enemy  positions  from  an  NIC  battle.  This  data  is  entered  into  the  OPFOR  data  file  and 
read  in  by  the  ModelEnemy Defense  procedure,  so  that  the  light  infantry  attack  simu- 
lation better  approximates  the  actual  battlefield  conditions.  The  baseline  model  repres- 
ents the  enemy  situation  as  indicated  by  the  GNATT  II  display  screen  shown  in  Figure 
6  (only  OPFOR  vehicles  shown).  The  remaining  elements  of  the  baseline  model  scenario 
follow  from  extracts  of  the  NTC  unit  take-home  package  and  operations  overlays. 

2.  Scenario  Input 

a.     Scheduling  of  Indirect  Fires 

Indirect  fires  are  one  of  the  leading  causes  of  infantry  attrition  at  the  NTC. 
The  light  infantry  attack  simulation  provides  a  means  of  reducing  infantry  effectiveness 
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Figure  6.      GNATT  II  Replay  of   AA89xxxx 

by  reducing  their  strength  with  scheduled  artillery  effects.  As  indicated,  indirect  fires 
rendered  two  rifle  companies  ineffective  during  AA89xxxx.  To  ensure  consistency  be- 
tween the  three  modeled  scenarios,  indirect  fires  are  scheduled  against  two  companies 
during  movement  to  the  assault  position,  and  against  the  third  company  while  it  is  in  the 
assault  position  preparing  to  engage  targets. 

In  terms  of  light  force  losses,  the  mean  level  of  light  force  attrition  for  500 
iterations  is  33.9972%.  This  may  be  interpreted  in  terms  of  the  Survival  MOE  as  ap- 
proximately 66%;  however,  there  is  insufficient  data  to  compare  with  losses  at  the  NTC. 
A  sample  attrition  output  file  is  contained  in  Appendix  D. 
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b.     Forces 

(1)  Opposing  Forces.  The  GNATT  II  display  screen  in  Figure  6  indi- 
cates the  positions  of  OPFOR  vehicles  during  AA89xxxx.  In  particular,  there  are  14 
OPFOR  vehicles  in  this  battle,  consisting  of  11  BMPs,  one  T72,  one  BRDM,  and  one 
ZSU  23-4.  In  addition  to  the  identification  and  location  information,  the  user  also  in- 
puts the  target  orientation.  Target  orientation  is  simply  the  user's  estimate  of  the  prin- 
cipal field  of  view  for  each  target.  Appendix  B  contains  the  identity,  location,  and 
orientation  for  each  OPFOR  vehicle  from  AA89xxxx.  The  opposing  forces  scenario  is 
identical  for  each  of  the  baseline  model  and  the  two  alternative  models. 

(2)  Friendly  Force  Concept  of  the  Operation.  The  scenario  input  for 
friendly  forces  is  read  in  by  the  ModelOpei  at  ions  Overlay  procedure  in  the  MapRecon 
module.  The  light  infantry  battalion  represented  in  the  light  infantry  attack  simulation 
starts  the  mission  at  full  strength,  consisting  of  three  rifle  companies  of  three  platoons 
each.  Platoon  starting  strength  includes  two  ATGM  gunners  with  two  missiles  each. 
Friendly  force  structure  is  identical  for  all  three  tactical  alternatives.  Movement  routes 
for  the  rifle  companies  are  input  to  mirror  the  original  operations  overlay  for  mission 
AA89xxxx,  and  objectives  are  assigned  with  corresponding  targets  for  each  objective 
area.  The  objectives  differ  from  the  original  graphics  only  so  that  the  unit  ATGMs  will 
be  within  range  of  the  OPFOR  positions  indicated  in  the  GNATT  II  display.  The 
baseline  model  concept  of  the  operation  is  depicted  in  Figure  7. 

3.     Baseline  Model  Results 

As  indicated  previously,  the  baseline  model  can  be  characterized  as  a  frontal 
attack.  The  light  forces  begin  the  battle  with  18  ATGM  gunners,  or  36  missiles  with 
which  to  engage  the  enemy  vehicles.  In  a  trial  run  of  the  model  without  OPFOR  artil- 
lery play,  the  light  force  successfully  destroyed  nine  vehicles.  A  sample  engagement 
history  is  contained  at  Appendix  F.  Returning  to  the  Destroy  MOE  developed  in 
Chapter  II, 

Total  OPFOR  Destroved 
DeStr°y  MOE  =     Total  OPFOR  Starting     ' 

the  resulting  effectiveness  of  an  undetected,  unattritted  light  force  is  approximately  64%. 
Although  this  level  of  effectiveness  is  unrealistic  given  the  environment,  it  serves  as  a 
reference  point,  within  the  model  architecture,  to  compare  levels  of  effectiveness  under 
less  than  ideal  conditions.     Subsequently,  a  run  of  the  model  with  an  artillery  strike 
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Figure  7.      Baseline  Model  Operations  Overlay 

directed  at  each  company  produced  a  Destroy  MOIi  of  approximately  57%,  or  eight 
OPFOR  vehicles  destroyed.  Furthermore,  replicating  the  model  through  500  iterations, 
the  resulting  mean  Destroy  MOE  was  58.8 1%,  with  a  variance  of  0.0105,  so  that  a  95% 
confidence  interval  on  the  mean  destruction  of  OPFOR  in  this  attack  scenario  is 

0.5791  <^<0.5971. 

Appendix  F  contains  results  of  the  baseline  model,  including  the  statistical  summary  for 
the  replications  and  attack  output  files  for  both  events  with  and  without  artillery. 
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D.  A  REAR  ATTACK  PLAN 

1.  Concept  of  the  Operation 

The  rear  attack  plan  assumes  insertion  of  the  force  to  a  landing  zone  behind 
enemy  lines.  Movement  routes  position  the  friendly  forces  to  the  rear  of  the  enemy  prior 
to  engagement.  Companies  retain  objective  and  target  assignments  similar  to  the 
baseline  model.   The  rear  attack  concept  of  the  operation  is  depicted  in  Figure  8. 

2.  Model  Results 

In  a  trial  run  of  the  model  without  OPFOR  artillery,  the  light  force  successfully 
destroyed  nine  vehicles,  or  a  Destroy  MOE  for  an  unaudited  force  of  64.29%.  A  trial 
run  of  the  model  with  an  artillery  strike  directed  at  each  company  produced  a  Destroy 
MOE  of  approximately  57.14%,  or  eight  OPFOR  vehicles  destroyed.  Replicating  the 
model  through  500  iterations,  the  resulting  mean  Destroy  MOE  is  67.57%,  with  a  1.58% 
variance.  The  resulting  confidence  interval  on  the  mean  destruction  of  OPFOR  in  this 
attack  scenario  is 

0.6647  <  n  <  0.6S67. 

Results  of  the  rear  attack  model  are  contained  in  Appendix  G. 

E.  A  FLANK  ATTACK  PLAN 

1.  Concept  of  the  Operation 

The  flank  attack  plan  assumes  insertion  of  the  force  to  a  landing  zone  to  the 
north  of  the  enemy's  positions.  Movement  routes  position  the  forces  on  the  northern 
flank  of  the  enemy  prior  to  engagement.  The  flank  attack  concept  of  the  operation  is 
depicted  in  Figure  9. 

2.  Model  Results 

In  a  trial  run  of  the  model  without  artillery,  the  light  force  successfully  destroyed 
11  vehicles,  a  measure  of  effectiveness  for  an  unattritted  force  of  78.57%.  A  trial  run 
of  the  model  with  artillery  produced  a  Destroy  MOE  of  approximately  50%,  or  seven 
OPFOR  vehicles  destroyed.  Replicating  the  model  through  500  iterations,  the  resulting 
mean  Destroy  MOE  was  63.30%,  with  a  1.96%  variance,  producing  a  confidence  inter- 
val on  the  mean  destruction  of  OPFOR  in  this  attack  scenario  of 

0.6207  <  ^  <  0.6453. 
Results  of  the  Hank  attack  model  are  contained  in  Appendix  H. 
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Figure  8.      Rear  Attack  Operations  Overlay 

F.     COMPARISON  OF  RESULTS 

The  results  of  the  simulation  experiment  support  the  tactical  assertion  that  it  is  to 
the  attacker's  advantage  to  approach  the  objective  from  a  direction  the  enemy  is  not 
expecting.  An  advantage  in  this  tactic  is  that  it  exposes  an  enemy  weakness  to  the  ef- 
fects of  friendly  direct  fire  weapon  systems.  In  particular,  it  is  generally  the  case  that 
armored  vehicles  are  less  susceptible  to  weapons  effects  when  struck  from  the  front  as 
opposed  to  the  flank  or  rear.  Typically,  armor  protection  is  increased  on  the  frontal 
slopes  of  these  vehicles,  and  the  target  silhouette,  when  viewed  from  the  front,  is  mini- 
mized.   Therefore,  it  is  usually  to  the  attacker's  advantage  to  infiltrate  to  a  position  to 
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Figure  9.      Flank  Attack  Operations  Overlay 

the  rear  or  the  Hank  of  the  enemy  to  maximize  the  probability  of  hit  and  probability  of 
kill. 

An  initial  comparison  of  the  results  of  each  scenario  indicates  a  significant  difference 
in  the  expected  measure  of  effectiveness  for  frontal,  flank,  and  rear  attacks.  This  result 
is  not  offered  as  evidence  to  claim  the  superiority  of  one  tactic  over  the  other;  however, 
it  follows  the  intuition  that,  under  similar  conditions,  units  might  be  expected  to  achieve 
more  destructive  effect  on  enemy  forces  while  attacking  from  the  flank  or  rear,  as  op- 
posed to  a  frontal  attack.  Furthermore,  this  result  tends  to  verify  the  utility  of  the  model 
as  a  planning  and  analytic  tool.  Figure  10  depicts  the  range  of  the  confidence  intervals 
for  each  of  the  scenarios.    This  plot  clearly  indicates  a  difference  between  the  scenarios. 
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However,  Figure  11  depicts  the  probability  density  for  the  sample  results  of  each  sce- 
nario for  500  replications.  Due  to  the  amount  of  variation  in  the  distributions  of  the 
results  of  each  scenario,  further  analysis  to  determine  whether  one  scenario  is  statis- 
tically significantly  different  from  another  will  reinforce  these  general  conclusions. 
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Figure  10.      Confidence  Intervals  for  Each  Scenario 

It  is  possible  to  reduce  the  variance  of  an  output  random  variable  without  disturbing 
its  expected  value,  thus  yielding  greater  precision,  i.e., smaller  confidence  intervals  [Ref. 
12:  p.  349].  The  method  of  common  random  numbers  (CRN),  is  a  variance  reduction 
technique  applied  to  measure  the  relative  performance  of  the  model  under  the  three 
scenarios.  Since  each  scenario  is  run  under  identical  conditions,  and  calls  to  the  random 
number  generators  produce  synchronized  streams  of  random  numbers,  it  is  desired  to 
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Figure   11.      Scenario  Distributions 


estimate  the  difference  between  the  expected  values  of  each  scenario  run,  C,  and  produce 
a  confidence  interval  on  this  result.  The  output  variables,  or  replication  MOEs,  XB.  , 
Xty,  and  XF,  ,  where  B,  R,  and  F  represent  the  baseline,  rear,  and  flank  attack  scenarios 
respectively  on  the  j  th  independent  replication,  are  correlated  random  variables.  By  the 
method  of  common  random  numbers,  letting  Z,  =  XR,  —  XB,  for  j  =  l,2,...,n,  then 
Z(n)  =  HLZJn  is  an  unbiased  estimator  of  £  =  E(XRj)  -  E{XBj).  Since  the  Z,  's  are  I  ID 
random  variables, 


IMZ(n))  = 


Var(Zj) 

n 
Var{XRj)  +  Var{XBJ)  -  2Cov{XRJ,XBJ) 


so  that  any  positive  correlation  between  XR.  and  XB„  has  Cov(XRl,XBj)  >  0.  Consequently, 
variance  of  Z(ri)  is  reduced.  [Ref.  12:  p.  351].  Furthermore,  the  form  of  the  confidence 
interval  is 


'    2 


Z(n)±tn_lA_xl2^/szln, 


where  s2z  is  the  variance  of  the  Z/s  [Ref.  8:  p.  49]. 

The  method  of  common  random  numbers  is  applied  to  each  scenario,  with  results 
shown  in  Table  5.  In  each  case,  0  is  not  contained  in  the  confidence  interval,  so  it  may 
be  concluded  that  there  is  significant  difference  between  results  of  the  three  scenarios. 
Interestingly,  CRN  reduced  the  total  variance  in  the  Rear-Baseline  samples  by  0.0066, 
or  approximately  25.2%,  reduced  the  variance  in  the  Flank-Baseline  samples  by  0.0079. 
or  26.4%,  and  reduced  the  variance  in  the  Rear-Flank  samples  by  0.0084,  or  23.9%. 
Numerous  factors  contribute  to  these  results,  notably  the  specific  input  parameters  for 
probability  of  kill.  However,  model  validation,  and  the  associated  sensitivity  analysis,  is 
beyond  the  scope  of  this  thesis. 

Table  5.     RESULTS  OF  CRN  TEST  OF  DIFFERENCE 


Test 

Mean 
Performance 

Standard 
Deviation 

Confidence  Interval 
(95%) 

Lower  Limit 

Upper  Limit 

%Rj  ~  ^Bj 

(Rear-Baseline) 

0.0S756 

0.14024 

0.07527 

0.099S5 

(Flank-Baseline) 

0.04484 

0.14878 

0.03181 

0.05788 

(Rear-Flank) 

0.04271 

0.16417 

0.02833 

0.05711 
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V.     CONCLUSIONS  AND  RECOMMENDATIONS 

A.  CONCLUSIONS 

The  purpose  of  the  simulation  study  is  to  produce  a  modeling  tool  to  experiment 
with  and  to  analyze  light  infantry  operations  in  a  mid-to-high  intensity  environment. 
The  NTC's  training  environment  and  data  collection  capacity  provide  background  in- 
formation. The  initial  data  collection  and  analysis  suggest  almost  negligible  light  force 
contribution  to  overall  mission  effectiveness.  There  are  several  factors  which  contribute 
to  light  force  effectiveness  in  this  environment.  The  simulation  model,  then,  provides  a 
tool  to  analyze  both:  "What  results  might  we  have  been  able  to  achieve?",  and  "What 
results  might  we  have  achieved  if  we  had  attacked  this  way?" 

The  results  from  three  different  tactical  experiments  produced  distinct  measures  of 
effectiveness,  as  measured  in  terms  of  OPFOR  destruction.  The  results  follow  intuitive 
lines:  flank  and  rear  attacks  would  generally  be  expected  to  produce  better  results  than 
a  frontal  attack.  Because  the  model  compares  random  numbers  to  input  parameters, 
obviously  the  more  accurate  the  input  parameters,  the  more  accurately  the  simulation 
results  should  compare  with  expected  battlefield  results.  The  model  can  be  readily 
adapted  to  read  such  data. 

Using  approximations  of  the  effectiveness  of  the  Dragon  missile  system  against 
various  OPFOR  vehicles,  the  simulation  results  of  the  baseline  model  suggested  that 
light  infantry  units  operating  at  night  should  be  able  to  achieve  significantly  better  re- 
sults than  are  obtainable  at  the  CTCs.  One  possible  explanation  is  the  lack  of  a  com- 
patible night  firing  MILES  device  for  the  Dragon. 

As  an  initial  modeling  effort,  this  model  represents  a  detailed  simulation  of  the 
events  on  the  battlefield,  from  movement  along  prescribed  routes,  to  assignments  and 
engagements  of  targets  according  to  steps  commonly  used  in  training.  This  model,  more 
than  anything  else,  represents  a  low-cost,  highly  exportable  planning  and  analysis  alter- 
native to  large  scale  combat  models  in  use  today.  Its  modular  development  allows  ad- 
aptation to  other  models,  and  more  importantly,  allows  growth  and  follow-on 
development  to  expand  its  utility. 

B.  RECOMMENDATIONS 

One  of  the  early  assertions  made  in  this  research  is  the  inability  of  our  training 
centers  to  provide  an  environment  which  facilitates  employing  forces  against  an  enemy 
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they  are  capable  of  defeating.  Clearly,  light  infantry  is  an  effective  force  in  an  environ- 
ment such  as  the  NTC;  however,  the  continued  employment  of  light  infantry  against 
enemv  armored  and  mechanized  forces,  in  other  than  close  terrain,  is  doctrinallv  unten- 
able.  Doctrinal  complementary  force  operations  must  stress  the  notion  of  employing 
light  forces  in  operations  against  enemy  battlefield  operating  systems,  other  than  his 
maneuver  forces,  to  maximize  their  effectiveness  and  create  a  dilemma  for  the  enemy. 

This  model  has  several  limitations,  principally  the  lack  of  OPFOR  direct  fires. 
Continued  development  to  improve  such  shortcomings  will  improve  the  results  of  the 
model  in  general,  and  more  specifically,  as  a  valuable  tool  for  planning  and  analyzing 
complementary  force  operations.  The  scenarios  developed  to  analyze  employment  of 
light  forces  in  this  research  also  consist  entirely  of  operations  in  which  the  light  force  is 
attacking  the  enemy's  heavy  maneuver  forces.  However,  further  scenario  development 
to  portray  OPFOR  CS  and  CSS  elements  throughout  the  depth  of  the  battlefield  is  en- 
tirely possible  and  may  demonstrate  the  utility  of  the  model  in  exploring  employment 
of  light  forces  against  targets  other  than  heavy  maneuver  forces.  Furthermore,  in  the 
context  of  heavy,  light  operations,  the  development  of  a  complementary  heavy  force  at- 
tack simulation  would  greatly  improve  this  model's  utility.  The  results  of  the  light  force 
operations  establish  the  input  parameters  for  the  heavy  model,  so  that  a  more  accurate 
picture  of  heavy  light  effectiveness  may  be  obtained. 
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APPENDIX  A.     MODSIM  CODE 


A.     ATTACK 


MAIN  MODULE  Attack; 

FROM  SimMod  IMPORT 

FROM  CRTMod  IMPORT 

FROM  Unit  IMPORT 

FROM  MapRecon  IMPORT 

FROM  OPFOR  IMPORT 

FROM  Arty  IMPORT 

FROM  Weapons  IMPORT 

FROM  Globals  IMPORT 

FROM  Menu  IMPORT 

FROM  MOE      IMPORT 


St art Simulation,  SimTime,  ResetSimTime; 

ClearScreen; 

BattalionObj; 

Mode lOperat ions Over lay; 

Mode lEnemyDe fens e; 

ScheduleOPFORArty,  Pk; 

ReadMissileData; 

Setup,  UnitNameType; 

RunMenul,  numberOfReplications , 

replicating,  walkingThru,  Cleanup; 

Mean,  MOEmean,  ReportStats, 

meanMissionTime ,  percentAttrition, 

meanAttritionForThisRun,  Tot a 10PF0R losses; 


VAR 

i,  j  :  INTEGER; 

LightFighters  :  BattalionObj; 

BEGIN 

ClearScreen; 
RunMenul; 
Setup; 
ReadMissileData; 

FOR   i  :=  0  TO  numberOfReplications  -  1 
meanAttritionForThisRun  :  =  0.0; 

Mode lEnemyDe fens e; 
Mode lOpe rat ions Over lay; 
ScheduleOPFORArty; 
ResetSimTime( 0.  0); 
NEW( LightFighters); 
IF  walkingThru 

OUTPUT(  The  battalion  is  executing  the  mission."); 
END  IF; 
TELL  LightFighters  TO  ExecuteMission; 

St art Simulation; 

M0Emean( i ,  FLOAT(TotalOPFORlosses ) ) ; 

meanMissionTime  :=  Mean(i,  meanMissionTime,  SimTime( )/3600.  0); 

FOR  j  :=  0  TO  2 

meanAttritionForThisRun  :=  Mean(j,  meanAttritionForThisRun, 

Pk[VAL( UnitNameType,  j)]  ); 
END  FOR; 
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percentAttrition  :=  Mean(i,  percentAttrition, 

meanAttritionForThisRun); 

DISPOSE(LightFighters); 

DISPOSE(Pk); 

CleanUp; 

IF  replicating 

OUTPUT("Run  number  ",i+l,"  complete."); 
END  IF; 
END  FOR; 

ReportStats; 

OUTPUT( "MISSION  ACCOMPLISHED"); 

IF  walkingThru 

OUTPUT( "Ended  normally  at:"); 

OUTPUT("H  +  ",  SimTime()/3600.  0,"  hrs."); 

OUTPUT; 
END  IF; 
0UTPUT("Look  in  file  attack,  out  for  results  of  the  battle."); 

END  MODULE. 
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B.  GLOBALS 


DEFINITION  MODULE  Globals; 

FROM  IOMod   IMPORT  StreamObj; 
FROM  RandMod  IMPORT  RandomObj; 

TYPE 

UnitNameType  =  (A,  B,  C,  D); 

VeaponsStatusType  =  (HOLD,  TIGHT,  FREE); 

TargetStatusType  =  (missed,  damaged,  killed); 

TransType  =  (Foot,  Truck,  AirAssault); 

VisCondType  =  (Day,  Night);      (*  Visibility  Condition  *) 

MovementRateList  =  ARRAY  INTEGER,  INTEGER  OF  REAL; 
(*  ARRAY  TransType,  VisCondType  OF  REAL;  *) 

ConversionFactorList  =  ARRAY  TransType  OF  REAL; 
C*  to  convert  movement  rates  to  m/sec  ,v) 

PROCEDURE  Setup; 

PROCEDURE  ReadTransportationData; 

VAR 


OutputFile , 

EngagementHistory , 

AttritionFile 

MovementRate 

CF 

Weapons St at us 

RegroupTime 

VisCond 

BDA, 

HitOrMiss, 

RandomCasualty , 

RoundGenerator 


StreamObj; 

MovementRateList; 

ConversionFactorList; 

Weapons St atusType; 

REAL; 

VisCondType; 


RandomObj; 


END  MODULE. 
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IMPLEMENTATION  MODULE  Globals; 

FROM  IOMod    IMPORT  StreamObj,  FileUseType( Input ,  Output); 
FROM  RandMod  IMPORT  FetchSeed; 
FROM  Debug   IMPORT  TraceStream; 

PROCEDURE  Setup; 
BEGIN 

WeaponsStatus  : =  HOLD; 

VisCond  :=  Night; 

RegroupTime  :=  150.0;  (*  2  and  a  half  minutes  to  regroup  ,v) 

NEW(OutputFile); 

ASK  OutputFile  TO  Open( "attack. out" ,  Output); 

NEW(EngagementHistory); 

ASK  EngageinentHistory  TO  Open(  "engage,  hst" ,  Output); 

NEW(AttritionFile); 

ASK  AttritionFile  TO  Open("attrit. out" ,  Output); 

NEW(BDA); 

ASK  BDA  TO  SetSeed(FetchSeed( 1) ); 

NEW(HitOrMiss); 

ASK  HitOrMiss  TO  SetSeed(FetchSeed(2) ); 

NEW(RandomCasualty) ; 

ASK  RandomCasualty  TO  SetSeed(FetchSeed(3)); 

NEW( RoundGenerator ) ; 

ASK  RoundGenerator  TO  SetSeed(FetchSeed(4)); 

NEW(TraceStream); 

ASK  TraceStream  TO  Open("trace. out" ,  Output); 

ASK  TraceStream  TO  TraceOff; 

ReadTransportationData; 

END  PROCEDURE;   (*  Setup  *) 

(*  *) 

PROCEDURE  ReadTransportationData; 
VAR 

i  :  INTEGER; 

TransportationDataFile   :  StreamObj; 

nilentry  :  STRING; 

BEGIN 
i  :=  0; 

NEW( TransportationDataFile); 

ASK  TransportationDataFile  TO  Open( "trans. dat",  Input); 
NEW(MovementRate,  ORD(Foot). . ORD(AirAssault) ,  ORD(Day).  . ORD(Night)); 
NEW(CF,  Foot. . AirAssault); 

ASK  TransportationDataFile  TO  ReadLine(nilentry); 
WHILE  NOT  ASK  TransportationDataFile  eof 

ASK  TransportationDataFile  TO  ReadString(nilentry); 
ASK  TransportationDataFile  TO 

ReadReal(MovementRate[ i,i] ); 
ASK  TransportationDataFile  TO 

ReadReal(MovementRate[ i,i+l] ); 
ASK  TransportationDataFile  TO 

ReadReal(CF[VAL(TransType,i)] ); 
INC(i); 
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END  WHILE; 

ASK  TransportationDataFile  TO  Close; 

DISPOSE( Transport at ionDataFile); 

END  PROCEDURE;   (*  ReadTransportationData  *) 

END  MODULE. 
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C.  UNIT 


DEFINITION  MODULE  Unit; 


FROM  SimMod 
FROM  GrpMod 
FROM  MapRecon 
FROM  OPFOR 
FROM  Globals 

TYPE 


IMPORT  TriggerObj; 

IMPORT  StackObj; 

IMPORT  PositionRecordType; 

IMPORT  EnemyVehicleObj; 

IMPORT  WeaponsStatusType,  TransType,  UnitNameType; 


UnitObj  =  OBJECT  ('*  generic  unit  object  *) 

myHQ  :  UnitObj; 

identity  :  STRING; 

location  :  PositionRecordType; 

myFirePower        :  ANYOBJ; 

moving, 

set, 

outOfATGMammo, 

engaging, 

engagementComplete , 

finalAssault       :  BOOLEAN; 

mvtStartTime , 

movementTime       :  REAL; 

ASK  METHOD  UpdateStatus; 

ASK  METHOD  SetLocation( IN  position  :  PositionRecordType); 

TELL  METHOD  TargetHandover( IN  target  :  EnemyVehicleObj; 

IN  firingPosition  :  STRING); 

TELL  METHOD  MoveTo  (IN  position  :  PositionRecordType; 

IN  method   :  TransType); 
END  OBJECT; 


RiflePlatoonObj  =  OBJECT  (UnitObj) 
ASK  METHOD  PltInit(IN  HQ  :  UnitObj; 

IN  id  :  STRING); 
TakeCasualties( IN  lossPercentage:  REAL); 
OccupyFiringPosition( IN  firingPosition  :  STRING); 
Prepa'reToEngage(IN  pltTargetList  :  StackObj); 
Engage; 

Interrupt Engage; 
FinalAssault; 


ASK 

METHOD 

TELL 

METHOD 

ASK 

METHOD 

TELL 

METHOD 

TELL 

METHOD 

TELL 

METHOD 

END  OBJECT; 

PlatoonList  =  ARRAY  INTEGER  OF  RiflePlatoonObj; 
RifleCompanyObj  =  OBJECT( UnitObj ) 


unitName 
platoon 
targetList 
alreadyFired 
movement Complete 


UnitNameType; 

PlatoonList; 

StackObj; 

BOOLEAN; 

TriggerObj; 


ASK  METHOD  CompanyInit( IN  HQ 


UnitObj; 
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IN  Name  :  UnitNameType); 
TELL  METHOD  ExecuteMovementPlan; 

TELL  METHOD  Artil lerylnterrupt( IN  casualtyAssessment  :  REAL); 
TELL  METHOD  AssignTargets; 
TELL  METHOD  Hold(IN  target  :  EnemyVehicleObj; 

IN  firingPosition  :  STRING  ); 
TELL  METHOD  Attack; 
TELL  METHOD  FinalAssault; 
OVERRIDE 

TELL  METHOD  TargetHandover( IN  target  :  EnemyVehicleObj; 

IN  firingPosition  :  STRING); 
ASK  METHOD  UpdateStatus; 
END  OBJECT; 

CompanyList  =  ARRAY  UnitNameType  OF  Rif leCompanyObj; 

BattalionObj  =  OBJECT(UnitObj ) 

company    :  CompanyList; 

execute    :  TriggerObj; 

ASK  METHOD  Objlnit; 

TELL  METHOD  ExecuteMission; 

OVERRIDE 

ASK  METHOD  UpdateStatus; 
END  OBJECT; 


VAR 
i 

name 
f irstTimeSet 

END  MODULE. 


INTEGER; 

UnitNameType; 

BOOLEAN; 
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IMPLEMENTATION  MODULE  Unit; 


FROM 

SimMod 

IMPORT 

FROM 

UtilMod 

IMPORT 

FROM 

CRTMod 

IMPORT 

FROM 

GrpMod 

IMPORT 

FROM 

MathMod 

IMPORT 

FROM 

FPC 

IMPORT 

FROM 

OPFOR 

IMPORT 

FROM 

Arty 

IMPORT 

FROM 

Menu 

IMPORT 

FROM 

Globals 

IMPORT 

FROM  MapRecon   IMPORT 


SimTime,  TriggerObj,  Interrupt; 

Delay,  MicroDelay; 

ClearScreen; 

StackObj; 

CEIL; 

FPCObj; 

EnemyVehicleObj; 

Pk,  ImpactTimeA,  ImpactTimeB,  ImpactTimeC; 

walkingThru,  playingArty; 

ALL  TransType,  VisCond,  MovementRate,  CF, 

ALL  UnitNameType,  RegroupTirae,  OutputFile, 

EngagementHi story,  Weapons Status , 

ALL  WeaponsStatusType; 

Distance,  PositionRecordType,  ALL  SyrabolType, 

UnitTargetList ,  UnitRoute; 


(  it    it  it  it  it  it  -,'.-  -.V  it  it  it  -V  it  it  it  it  -V  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it    it ") 

OBJECT  UnitObj; 

( it    itititititititititititititititititititititititititititititititititititititititititititititfr  it} 

ASK  METHOD  SetLocation( IN  position  :  PositionRecordType); 
VAR 

fpc  :  FPCObj; 

BEGIN 

fpc  : =  myFirePower; 

location  :=  CLONE(position); 

ASK  fpc  TO  SetLocation( location,  coordinate); 
END  METHOD;      (*  SetLocation  *) 


ASK  METHOD  UpdateStatus; 
VAR 

fpc  :  FPCObj; 

BEGIN 

fpc  : =  myFirePower; 
IF  NOT  finalAssault 

set  :  =  ASK  fpc  ready; 

engagementComplete  :=  ASK  fpc  f iringCoraplete; 
IF  engagementComplete  OR  set 

ASK  myHQ  TO  UpdateStatus; 
END  IF; 
END  IF; 

engaging      :  =  ASK  fpc  engaging; 
outOfATGMammo  :=  ASK  fpc  outOfATGMammo; 
END  METHOD;   (*  Platoon  UpdateStatus  *) 


TELL  METHOD  TargetHandover( IN  target  :  EnemyVehicleObj; 

IN  firingPosition  :  STRING); 

BEGIN 


*) 


*) 
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TELL  myHQ  TO  TargetHandover( target ,  f iringPosition); 
END  METHOD; 


(* 


*) 


TELL  METHOD  MoveTo  (IN  position  : 

IN  method  : 
VAR 

distance,  mvtRate   :  REAL; 

remMvtTime         :  REAL; 


Pos  it  ionRecordType; 
TransType); 


BEGIN 
moving 
mvtStartTime 
distance 
mvtRate 
movementTime 
WAIT  DURATION 


=  TRUE; 

=  SimTime( ) ; 

=  Distanced  location. coordinate,  position. coordinate); 

=  CF[ method]  *  MovementRate[ ORD( method) ,ORD(VisCond)]  ; 

=  distance/mvtRate; 

movementTime 


DISPOSE( location); 
location   :=  position; 
moving     : = 
ON  INTERRUPT   0' 
remMvtTime  : = 
WAIT  DURATION 

DISPOSE( location); 
location  :=  position; 
moving    : =  FALSE; 
END  WAIT; 
END  WAIT; 
END  METHOD;      (*  MoveTo  *) 

END  OBJECT;    (*  UnitObj  *) 


FALSE; 

determine  remaining  movement  time  *) 
movementTime  -  (SimTime()  -  mvtStartTime); 
RegroupTime  +  remMvtTime 


(' 
(* 


*********  * 


OBJECT  RiflePlatoonObj; 


ASK  METHOD  PltInit(lN  HQ 

IN  id 
VAR 

fpc  :  FPCObj; 


UnitObj; 
STRING); 


BEGIN 

myHQ 

identity 

location 

NEW(fpc); 

ASK  fpc  TO  FPCInit(SELF); 

mvFirePower   :  =  fpc; 
END' METHOD;   (*  Pltlnit  *) 


=  HQ; 
=  id; 
=  CLONE(ASK  myHQ  location); 


ASK  METHOD  TakeCasualties( IN  lossPercentage  :  REAL); 
VAR 

fpc  :  FPCObj; 
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BEGIN 

fpc  : =  myFirePower; 

ASK  fpc  TO  DecrementFPC( lossPercentage); 
END  METHOD;      (*  TakeCasualties  *) 

(*  *) 

TELL  METHOD  OccupyFiringPosition( IN  f iringPosition  :  STRING); 
VAR 

fpc     :  FPCObj; 

mvtTime  :  REAL; 

BEGIN 

engaging  :  =  TRUE; 

fpc  : =  myFirePower; 

IF  location. coordinate  =  f iringPosition 

mvtTime  :  =  0.0; 
ELSE 

mvtTime  :=  Distance( location. coordinate,  f iringPosition)  / 

(CF[Foot]  *  MovementRate[ORD(Foot),  0RD( VisCond)]  ); 
END  IF; 
WAIT  DURATION  mvtTime 

location. coordinate  :=  f iringPosition; 
END  WAIT; 

ASK  fpc  TO  SetLocation( f iringPosition); 
END  METHOD;   (*  OccupyFiringPosition  *) 

(*  ) 

ASK  METHOD  PrepareToEngage( IN  pltTargetList  :  StackObj); 
VAR 

fpc  :  FPCObj; 

BEGIN 

engaging  :  =  TRUE; 

fpc      : =  myFirePower; 

TELL  fpc  TO  PrepareToFire(pltTargetList); 
END  METHOD;   (*  PrepareToEngage  *) 


*) 


TELL  METHOD  Engage; 
VAR 

fpc  :  FPCObj; 

BEGIN 

fpc  : =  myFirePower; 

TELL  fpc  TO  Fire; 
END  METHOD;   (*  Engage  *) 

(*  *) 

TELL  METHOD  InterruptEngage; 

VAR 

fpc  :  FPCObj; 
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BEGIN 

fpc  : =  myFirePower; 

TELL  fpc  TO  InterruptFire; 
END  METHOD;   (*  Inter ruptEngage  *) 


(* 


*) 


TELL  METHOD  FinalAssault; 
VAR 

fpc  :  FPCObj; 

BEGIN 

fpc  : =  myFirePower; 

finalAssault  :=  TRUE; 

TELL  fpc  TO  FinalAssault; 
END  METHOD;   ("••'  FinalAssault  *) 


END  OBJECT; 


C*  Rif lePlatoonObj  *) 


OBJECT  RifleCompanyObj; 


ASK  METHOD  CompanyInit( IN  HQ 

IN  Name 
VAR 

pit    :  RiflePlatoonObj; 

pltlD  :  STRING; 


UnitObj; 
UnitNameType); 


BEGIN 

CASE  Name 

WHEN  A  :  pltlD 

WHEN  B  :  pit  ID 

WHEN  C  :  pit ID 
END  CASE; 
unitName 
myHQ 
location 
alreadyFired 
targetList 

NEW( movementComplete ) ; 
NEW(platoon,  1. . 3); 
FOR  i  :=  1  TO  3 

NEW(plt); 

REPLACE(pltID,2,2,INTTOSTR(i)); 

ASK  pit  TO  PltInit(SELF,pltID); 

platoon[  i]  :  =  pit; 
END  FOR; 
END  METHOD;   (*  Company Init  *) 


=  "AO" 
=  "BO" 
=  "CO" 


=  Name; 
=  HQ; 

=  UnitRoute[ unitName] ; 
=  FALSE; 

=  UnitTargetList[ unitName] ; 
(*  trigger  object  •'•) 


(* 


TELL  METHOD  ExecuteMovementPlan; 
BEGIN 

WHILE  ORD( location. symbol)  <  ORD(ASLTPSN) 
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IF  walkingThru 

OUTPUT(  Company  ",unitName,"  currently  in  ", location,  symbol); 
MicroDelay(500000); 
END  IF; 

WAIT  FOR  SELF  TO  MoveTo( location. nextPosition,  Foot) 
END  WAIT; 
END  WHILE; 
FOR  i  :=  1  TO  3 

ASK  platoon[ i]  TO  SetLocation( location); 
WAIT  FOR  platoon[  i]  TO 

OccupyFiringPosition( location. f iringPositions[ i] ) 
END  WAIT; 
END  FOR; 
IF  walkingThru 

OUTPUT(  Company  ",unitName,"  is  in  the  ", location,  symbol); 
END  IF; 

AssignTargets; 
END  METHOD;    (*  ExecuteMovementPlan  *) 


(* 


*) 


TELL  METHOD  AssignTargets; 
VAR 

numTgtsInPltList , 

closestPlt , 

nextClosestPlt , 

farthestPlt , 

j  ,  k,  numln, 

short est Distance, 

farthestDistance       : 

distToFarthest , 

distOut 

f arthestTarget ,  target 

chosen 

distance 

PltTargetList . 


INTEGER; 

REAL; 

EnemvVehicleObj; 

ARRAY  INTEGER  OF  INTEGER; 

ARRAY  INTEGER  OF  INTEGER; 

ARRAY  INTEGER  OF  StackObj; 


BEGIN 

NEW(PltTargetList,  1.  . 3); 
NEW(PltTargetList[  1]  ); 
NEW(PltTargetList[2]  ); 
NEW(PltTargetList[3]  ); 
NEW( chosen,  1. . 3); 
NEW(distance,  1.  .  3); 
numln  :=  ASK  targetList  numberln; 
numTgtsInPltList  :=  CEIL(FL0AT(numIn)/3.  0); 
WHILE  ASK  targetList  numberln  >  0 

numln  : =  ASK  targetList  numberln; 

target  :=  ASK  targetList  First(); 

distToFarthest  :=  DistanceC location. coordinate,  ASK  target 

location); 

f arthestTarget  :  =  target; 


(*  find  the  target  farthest  away 


*) 


IF  numln  >  1 
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FOR  k  :=  1  TO  (numln  -  1) 

target   :=  ASK  targetList  Next( target); 

distOut  :=  Distance( location. coordinate, ASK  target  location); 
IF  distOut  >  distToFarthest 
f arthestTarget  :=  target; 
distToFarthest  :=  distOut; 
END  IF; 
END  FOR; 
END  IF; 


C 


and  assign  it  to  the  closest  platoon.   ,v) 


FOR  j  :=  1  TO  3 

chosen[ j]    : =  j ; 

distance[j]  :=  ROUND(Distance( ASK  platoon[j] 

location. coordinate,  ASK  farthestTarget 

location) ); 
END  FOR; 

shortestDistance  :=  MINOF(distance[  1]  ,distance[2]  ,distance[  3]  ); 
farthestDistance  :=  MAXOF(distance[  1]  ,distance[2]  ,distance[  3]  ); 
IF  shortestDistance  =  distance[ 1] 

closestPlt  :=  1; 

chosen[  1]   :=  100; 
ELSIF  shortestDistance  =  distance[ 2] 

closestPlt  : =  2; 

chosen[2]       :=   100; 
ELSE 

closestPlt  : =  3; 

chosen[  3]   :=  100; 
END  IF; 
IF  farthestDistance  =  distance[ 1] 

farthestPlt  :=  1; 

chosen[  1]    :  =  100; 
ELSIF  farthestDistance  =  distance[2] 

farthestPlt  :=  2; 

chosen[ 2]  .   : =  100; 
ELSE 

farthestPlt  :=  3; 

chosen[  3]    :  =  100; 
END  IF; 

nextClosestPlt  :=  MIN0F(  chosen[  1]  ,chosen[  2]  ,chosen[  3]  ); 
IF  ASK  PltTargetList[ closestPlt]  numberln  <  numTgtsInPltList 

ASK  PltTargetList[ closestPlt]  TO  Add( farthestTarget); 

IF  walkingThru 

0UTPUT( "platoon  ", closestPlt ,"  gets  tgt  ",ASK  farthestTarget 
idNumber); 

END  IF; 
ELSIF  ASK  PltTargetList[ nextClosestPlt]  numberln  <  numTgtsInPltList 

ASK  PltTargetList[ nextClosestPlt]  TO  Add( farthestTarget); 

IF  walkingThru 

0UTPUT( "platoon  " .nextClosestPlt ,"  gets  tgt  ",ASK 

farthestTarget  idNumber); 
END  IF; 
ELSE 

ASK  PltTargetList[ farthestPlt]  TO  Add( farthestTarget); 

IF  walkingThru 
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OUTPUT( "platoon  " , farthestPlt ,"  gets  tgt  ",ASK 

farthestTarget  idNumber); 
END  IF; 
END  IF; 

ASK  targetList  TO  RemoveThis( farthestTarget); 
END  WHILE; 
IF  walkingThru 
Delay(3); 
ClearScreen; 
END  IF; 
FOR  i  :=  1  TO  3 

ASK  platoon[ i]  TO  PrepareToEngage(PltTargetList[  i]  ); 
END  FOR; 

DISPOSE(chosen); 
DISPOSE(distance); 
END  METHOD;      (*  AssignTargets  *) 


(* 


TELL  METHOD  Hold(IN  target  :  EnemyVehicleObj; 
IN  firingPosition  :  STRING); 

BEGIN 
IF  NOT  alreadyFired 
WAIT  FOR  movementComplete  TO  Fire 
alreadvFired  : =  TRUE; 
WAIT  DURATION  RegroupTime 

TargetHandover( target , firingPosition); 
END  WAIT; 
END  WAIT; 
ELSE 
WAIT  DURATION  RegroupTime 

TargetHandover( target , firingPosition); 
END  WAIT; 
END  IF; 
END  METHOD;   (*  Hold  *) 

(*  ') 


ASK  METHOD  UpdateStatus; 
VAR 

readyToMove  :  BOOLEAN; 

BEGIN 

readyToMove  :=  FALSE; 
FOR  i  :=  1  TO  3 

IF  NOT  ASK  platoon[  i]  set 
set  :=  FALSE; 
EXIT; 
ELSE 

set  :=  TRUE; 
END  IF; 
END  FOR; 

IF  set  AND  NOT  finalAssault 
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ASK  myHQ  TO  UpdateStatus; 
END  IF; 

IF  location. svmbol  =  ASLTPSN 
FOR  i  :=  1  TO  3 

IF  NOT  ASK  platoon[ i]  engagementComplete 
readyToMove  :  =  FALSE; 
EXIT; 
ELSE 

readyToMove  : =  TRUE; 
END  IF; 
END  FOR; 
END  IF; 

IF  (readyToMove)  AND  (NOT  f inalAssault) 
finalAssault  :=  TRUE; 
FinalAssault; 
END  IF; 
END  METHOD;   (*  Company  UpdateStatus  *) 


*) 


TELL  METHOD  Attack; 
BEGIN 

FOR  i  :=  1  TO  3 

TELL  platoon[  i]  TO  Engage; 

END  FOR; 
END  METHOD;   (*  Attack  *) 

(*  *) 

TELL  METHOD  FinalAssault; 
BEGIN 

WAIT  FOR  SELF  TO  MoveTo( location.  nextPosition,  Foot) 
IF  walkingThru 
IF  firstTimeSet 
Delay(5); 
ClearScreen; 
firstTimeSet  :=  FALSE; 
END  IF; 
END  IF; 
FOR  i  :=  1  TO  3 

ASK  platoon[ i]  TO  SetLocation( location); 
WAIT  FOR  platoon[ i]  TO 

OccupyFiringPosition( location. f iringPositions[  i] ) 
END  WAIT; 
END  FOR; 
FOR  i  :=  1  TO  3 

TELL  platoon[  i]  TO  FinalAssault; 
END  FOR; 
END  WAIT; 
IF  walkingThru 

OUTPUT( "Company  ",unitName,"  now  in  ", location,  symbol); 
END  IF; 

TELL  movementComplete  TO  Trigger; 
END  METHOD;   (*  FinalAssault  *) 
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(* 


*) 


TELL  METHOD  TargetHandover( IN  target   :  EnemyVehicleObj; 

IN  firingPosition    :  STRING); 
VAR 

j  ,  closestPlt 

dist,  shortestDist 

handedOver , 

candidate, 

ammoAvail , 

pltlnRange 

pltTargetList 

unas signableTar get 

Ammo ,  Busy 


INTEGER; 
REAL; 


BOOLEAN; 

StackObj; 

EnemyVehicleObj; 

ARRAY  INTEGER  OF  BOOLEAN; 


BEGIN 

NEV( pltTargetList); 

NEW(Ammc,  1..3); 

NEW(Busy,  1.  .  3); 

handedOver  :  =  FALSE; 

pltlnRange  :=  FALSE; 

candidate   :  =  FALSE; 

ammoAvail   :=  FALSE; 

ASK  pltTargetList  TO  Add(target); 

FOR  i:=  1  TO  3 

ASK  platoon[  i]  TO  UpdateStatus; 
END  FOR; 

WAIT  DURATION  RegroupTime;  (*  until  all  platoons  complete  firing  *) 
FOR  i  :=  1  TO  3 

IF  NOT  ASK  platoon[ i]  outOfATGMammo 
Ammo[  i]    :  =  TRUE; 
ammoAvail  :  =  TRUE; 
ELSE 

Ammo[  i]    :  =  FALSE; 
END  IF; 

IF  (NOT  ASK  platoon[  i] 
(NOT  ASK  platoon}  i] 
Busy[  i]    :=  FALSE; 
candidate  :=  TRUE; 
ELSE 

Busy[  i]    :  =  TRUE; 
END  IF; 
END  FOR; 
IF  ammoAvail 
IF  candidate 

FOR  i  :=  1  TO  3 

IF  (NOT  Busy[  i]  )  AND  (Ammo[  i]  ) 
dist  :=  Distance(ASK  platoon[ i]  location. coordinate, 

ASK  target  location); 
IF  dist  <  1000. 0 
IF  walkingThru 

OUTPUT( "Company  ",unitName,"  handing  over  target  ",ASK 

target  idNumber); 
0UTPUT("  to  platoon  ",i); 
ASK  EngagementHistory  TO  WriteString( "Handing  over  "); 


engaging)  AND 
outOfATGMammo) 
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ASK  EngagementHistory  TO  WriteInt(ASK  target 

idNumber,3); 
ASK  EngagementHistory  TO  WriteString( "  to  platoon  "); 
ASK  EngagementHistory  TO  WriteString( ASK  platoon[ i] 

identity); 
ASK  EngagementHistory  TO  WriteLn; 
END  IF; 

ASK  platoon[ i]  TO  PrepareToEngage(pltTargetList); 
handedOver  :=  TRUE; 
pltlnRange  :=  TRUE; 
EXIT; 
END  IF; 
END  IF; 
END  FOR; 

IF  NOT  pltlnRange 
("'•'  Since  no  platoon  is  currently  in  range,  find  the  closest  platoon 
and  move  it  to  the  firing  position.  ,v) 

shortestDist  :=  5000.0;   (-arbitrary  starting  distance*) 
FOR  i  : =  1  TO  3 

IF  (NOT  Busy[  i]  )  AND  (Ammo[  i]  ) 

dist  :=  Distance(ASK  platoon[ i]  location. coordinate , 

f iringPosition); 
IF  dist  <  shortestDist 
closestPlt  : =  i; 
shortestDist  :  =  dist; 
END  IF; 
END  IF; 
END  FOR; 

IF  NOT  (closestPlt  =  0) 

WAIT  FOR  platoon[  closestPlt]  TO  OccupyFiringPosition( f iringPosition); 
ASK  platoon[ closestPlt]  TO  PrepareToEngage(pltTargetList); 
IF  walkingThru 
0UTPUT( "Moving  platoon  ",ASK  platoon[ closestPlt]  identity); 
0UTPUT("  to  new  position  to  engage  ",ASK  target  id.N'umber); 
END  IF; 

handedOver  :  =  TRUE; 
END  WAIT; 
ELSE 

Hold( target,  f iringPosition) ; 
END  IF; 
END  IF; 
ELSE 

Hold(target,  f iringPosition); 
END  IF; 
ELSE 

IF  walkingThru 

0UTPUT( "Unable  to  handover  target  ", target.  idNumber); 
ASK  EngagementHistory  TO  WriteString( "Unable  to  handover  "); 
ASK  EngagementHistory  TO  WriteString( "target  "); 
ASK  EngagementHistory  TO  Writelnt( target. idNumber, 4); 
ASK  EngagementHistory  TO  WriteLn; 
END  IF; 

unassignableTarget  :=  ASK  pltTargetList  TO  Remove(); 
END  IF; 
END  WAIT; 
DISPOSE(Ammo);  DISP0SE( Busy); 
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END  METHOD;   (*  TargetHandover  *) 


TELL  METHOD  Artillervlnterrupt( IN  casualtyAssessment  :  REAL); 
BEGIN 

IF  walkingThru 

OUTPUT(  Company  M,unitName,"  receiving  fires  vicinity  ", 

location. symbol); 
OUTPUT( "   ...Casualty  assessment  is  ", casualtyAssessment); 
Delay(2); 
END  IF; 
IF  moving 

Interrupt (SELF,  "MoveTo"); 
FOR  i  :=  1  TO  3 

ASK  platoon[ i]  TO  TakeCasualties(casualtyAssessment); 
END  FOR; 
ELSE 

FOR  i  :  =  1  TO  3 

TELL  platoon[  i]  TO  InterruptEngage; 

ASK  platoon[ i]  TO  TakeCasualties(casualtyAssessment); 
END  FOR; 
END  IF; 
END  METHOD;   (*  Artillerylnterrupt  *) 

END  OBJECT;        (*  Rif leCompanyObj  *) 
OBJECT  BattalionObj; 

/  y-  y .  y  - y  -  y-  -  ■  -  y  -  y-  y  -  y .  y- y  - y  -  y -  y-  y .  y- y  . y-  y  -  jl.  y.  y  -  y. y  -  y ,  y  .  y  .  y.  y.  -i-  y  -  y«  y-  y  . y-  y.  y-  y  - . *-  y -  y  -  y-  y  -  y  -  y-  y-  y  -  y  -  y  -  y-  y-  y *  -  v  y  -  y-  y  - y  -  y  -  y  -  y-  y  -  y-  y  -   y .  \ 

ASK  METHOD  Objlnit; 
VAR 

co    :   Rif leCompanyObj; 

BEGIN 

NEW( execute);  (*  Trigger  Object  *) 

NEW( company,  A. . D); 
FOR  name  :  =  A  TO  C 
NEW ( co); 

ASK  co  TO  CompanyInit(SELF,  name); 
company[  name]  :=  co; 
END  FOR; 
END  METHOD;   (*  Objlnit  *) 

(*  *) 

TELL  METHOD  ExecuteMission; 
BEGIN 

FOR  name  :  =  A  TO  C 

TELL  company[ name]  TO  ExecuteMovementPlan; 
END  FOR; 
IF  playingArty 

TELL  company[A]  TO  ArtilleryInterrupt(Pk[ A] )  IN  ImpactTimeA; 
TELL  company} B]  TO  ArtilleryInterrupt(Pk[ B] )  IN  ImpactTimeB; 
TELL  company} C]  TO  ArtilleryInterrupt(Pk[  C]  )  IN  ImpactTimeC; 
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END  IF; 

WAIT  FOR  execute  TO  Fire     (*  Update  status  releases  *) 
(-  To  execute  a  simultaneous  attack. ...  *) 
WeaponsStatus  :=  FREE; 
firstTimeSet  :=  TRUE; 
IF  walkingThru 

OUTPUT(  Executing  a  synchronized  attack."); 
Delay(2); 
ClearScreen; 
END  IF; 
FOR  name  : =  A  TO  C 

TELL  company[ name]  TO  Attack; 
END  FOR; 
END  WAIT; 
END  METHOD;   (*  ExecuteMission  *) 

(*  

ASK  METHOD  UpdateStatus; 
VAR 

allUnitsSet  :  BOOLEAN; 

BEGIN 

allUnitsSet     :=  FALSE; 
FOR  name  : =  A  TO  C 

IF  NOT  ASK  company[ name]  set 
allUnitsSet  :=  FALSE; 
EXIT; 
ELSE 

allUnitsSet  :=  TRUE; 
END  IF; 
END  FOR; 

IF  allUnitsSet 

TELL  execute  TO  Trigger; 
END  IF; 

END  METHOD;   (*  Battalion  UpdateStatus  *) 

END  OBJECT; 

END  MODULE. 
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D.  FPC 


DEFINITION  MODULE  FPC; 


FROM  GrpMod 
FROM  Unit 
FROM  OPFOR 

TYPE 


IMPORT  StackObj; 

IMPORT  UnitObj; 

IMPORT  EnemyVehicleObj; 


TrooperType  =  (rifleman,  autorif leman,  grenadier,  machinegunner, 
dragongunner ,  leader); 

StrengthList  =  ARRAY  TrooperType  OF  INTEGER; 

ATGMList  =  ARRAY  INTEGER  OF  ANYOBJ; 

(*  ARRAY  INTEGER  OF  ATGMObj  *) 


(*  Generic  rifle  platoon  firepower  capability  ,v) 
:  UnitObj; 

:  STRING; 


FPCObj  =  OBJECT; 

myHQ 

identity, 

location 

engaging, 

ready, 

outOfATGMammo, 

f iringComplete, 

finalAssault       :  BOOLEAN; 

strength  :  StrengthList; 

missileSection     :  ATGMList; 

ASK  METHOD  FPCInit(IN  HQ  :  UnitObj); 

ASK  METHOD  DecrementFPC( IN  lossPercentage  :  REAL); 

ASK  METHOD  UpdateStatus; 

ASK  METHOD  SetLocation( IN  coordinate  :  STRING); 

TELL  METHOD  PrepareToFire( IN  pltTargetList  :  StackObj); 

TELL  METHOD  ReAssign(IN  target  :  EnemyVehicleObj); 

TELL  METHOD  Fire; 

TELL  METHOD  FinalAssault; 

TELL  METHOD  InterruptFire; 
END  OBJECT; 

END  MODULE. 
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IMPLEMENTATION  MODULE  FPC; 

FROM  GrpMod   IMPORT  StackObj; 

FROM  Unit    IMPORT  UnitObj; 

FROM  ATGM    IMPORT  ATGMObj; 

FROM  OPFOR    IMPORT  EnemyVehicleObj; 

FROM  Menu    IMPORT  walkingThru; 

FROM  Globals  IMPORT  RandomCasualty ,  ALL  TargetStatusType, 

EngagementHistory,  RegroupTime,  AttritionFile; 


OBJECT  FPCObj; 

ASK  METHOD  FPCInit(IN  HQ  : 
VAR 


dragon 

temp Id 


INTEGER; 
ATGMObj; 
STRING; 


UnitObj ) 


BEGIN 
myHQ 
identity 
location 
engaging 
ready 

outOf ATGMammo 
f iringComplete 
f inalAssault 
NEW( strength,  rifleman. 
strength[ rifleman] 
strength[ autorif leman] 
strength^  grenadier] 
strength[ machinegunner] 
strength[ dragongunner] 
strength^ leader] 
templd 

NEW(missileSection,  1. . strength[ dragongunner] ); 
FOR  i  :  =  1  TO  strength[ dragongunner] 
NEW( dragon); 

REPLACE( templd , 3,3, INTTOSTR( i) ) ; 

ASK  dragon  TO  ATGMInit( SELF,  templd); 

missileSection[  i]  :=  dragon; 
END  FOR; 
END  METHOD;       (*  FPCInit  *) 


HQ; 

ASK  myHQ 
ASK  mvHQ 
FALSE- 
FALSE; 
FALSE; 
FALSE; 
FALSE; 
leader); 
■•   11; 
6; 
6; 
2; 
2; 
12; 
identity; 


identity; 

location. coordinate; 


c* 


*) 


ASK  METHOD  DecrementFPC( IN  lossPercentage  :  REAL); 
VAR 


i,  numSoldiers, 
numLosses , 
dragonLosses 
loss,  runningSum 
dragon 


TrooperType; 


INTEGER; 
REAL; 
ATGMObj ; 
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BEGIN 

dragonLosses  :=  0; 
numSoldiers  : =  1; 
FOR  j  :=  rifleman  TO  leader 

numSoldiers  :=  numSoldiers  +  strength[ j] ; 
END  FOR; 

numLosses  :=  TRUNC(FLOAT(numSoldiers  -  1)  *  lossPercentage); 
FOR  i  : =  1  TO  numLosses 

numSoldiers  :=  numSoldiers  -  1; 

j  : =  rifleman; 

runningSum  :=  FL0AT(  strength^  j]  )/FLOAT(numSoldiers); 

loss  :=  ASK  RandomCasualty  Sample(); 

LOOP 

IF  loss  <  runningSum 

strength[j]  :=  strength[  j]  -  1; 
IF  j  =  dragongunner 
INC (dragonLosses); 
END  IF; 
EXIT; 
ELSE 
INC(j); 

runningSum  :=  runningSum  +  FLOAT(strength[ j] )/FLOAT(numSoldiers); 
END  IF; 
END  LOOP; 
END  FOR; 

IF  dragonLosses  >  0 
IF  dragonLosses  =  2 

outOfATGMammo   :=  TRUE; 
ready  :=  TRUE; 

engaging       : =  FALSE; 
f iringComplete  : =  TRUE; 
ASK  mvHQ  TO  UpdateStatus; 
END  IF; 
IF  walkingThru 

0UTPUT("    ", identity,"  dragon  losses  =  ", dragonLosses); 
END  IF; 

FOR  i  :=  2  D0WNT0  (3  -  dragonLosses) 
dragon  :=  missileSection[  i]  ; 
IF  NOT  (ASK  dragon  assignedTarget  =  NILOBJ) 

ReAssign(ASK  dragon  assignedTarget); 
END  IF; 
END  FOR; 
END  IF; 

IF  walkingThru 

ASK  AttritionFile  TO  WriteString( "Attrition  to  platoon  "  +  identity); 
ASK  AttritionFile  TO  WriteString(   with  "); 
ASK  AttritionFile  TO  WriteInt(numLosses ,4); 
ASK  AttritionFile  TO  WriteStringC  losses."); 
ASK  AttritionFile  TO  WriteLn; 

ASK  AttritionFile  TO  WriteString( "Strengths  for  each  class  of  soldier"); 
ASK  AttritionFile  TO  WriteLn; 
FOR  j  :=  rifleman  TO  leader 
CASE  j 

WHEN  rifleman  : 

ASK  AttritionFile  TO  WriteString( "rifleman      "); 
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WHEN  autorif leman  : 

ASK  AttritionFile  TO  WriteStringC 
WHEN  grenadier  : 

ASK  AttritionFile  TO  WriteStringC 
WHEN  machinegunner  : 

ASK  AttritionFile  TO  WriteStringC 
WHEN  leader  : 

ASK  AttritionFile  TO  WriteStringC 
OTHERWISE 

ASK  AttritionFile  TO  WriteStringC 
END  CASE; 

ASK  AttritionFile  TO  Writelnt(strength[ j] ,3); 
ASK  AttritionFile  TO  WriteLn; 
END  FOR; 
END  IF; 
END  METHOD;         (*  DecrementFPC  *) 


'autorif leman 

'grenadier 

'machinegunner 

'leader 

'dragongunner 


(* 


*) 


ASK  METHOD  SetLocation( IN  coordinate  :  STRING); 
VAR 

i       :  INTEGER; 

dragon   :  ATGMObj; 

BEGIN 

location  :=  coordinate; 

IF  strength[ dragongunner]  >  0 

FOR  i  : =  1  TO  strength[ dragongunner] 
dragon  :=  missileSection[  i]  ; 
ASK  dragon  TO  SetLocation( coordinate); 
END  FOR; 
END  IF; 
END  METHOD;         (*  SetLocation  *) 


ASK  METHOD  UpdateStatus; 
VAR 

i       :  INTEGER; 

dragon  :  ATGMObj; 

BEGIN 

IF  strength[ dragongunner]  >  0 

IF  NOT  finalAssault 

FOR  i  :=  1  TO  strength[ dragongunner] 
dragon  :=  missileSection[  i]  ; 
IF  NOT  ASK  dragon  ready 
ready  :=  FALSE; 
EXIT; 
ELSE 

ready  :  =  TRUE; 
END  IF; 
END  FOR; 
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*) 


FOR  i  : =  1  TO  strength[ dragongunner] 
dragon  :=  missileSection[  i]  ; 
IF  NOT  ASK  dragon  f iringComplete 
f iringComplete  :=  FALSE; 
EXIT; 
ELSE 

f iringComplete  :=  TRUE; 
END  IF; 
END  FOR; 

IF  ready  OR  f iringComplete 
ASK  myHQ  TO  UpdateStatus; 
END  IF; 

END  IF; 

FOR  i  :=  1  TO  strength[ dragongunner] 
dragon  :=  missileSection[  i]  ; 
IF  ASK  dragon  missile. ammoCount  >  0 
outOf ATGMammo  : =  FALSE; 
EXIT; 
ELSE 

outOf ATGMammo  :  =  TRUE; 
END  IF; 
END  FOR; 

FOR  i  :  =  1  TO  strength^  dragongunner] 
dragon  :=  missileSection[  i]  ; 
IF  ASK  dragon  engaging 
engaging  : =  TRUE; 
EXIT; 
ELSE 

engaging  : =  FALSE; 
END  IF; 
END  FOR; 

IF  (outOf ATGMammo)  OR  (NOT  engaging) 

ASK  myHQ  TO  UpdateStatus; 
END  IF; 

END  IF; 
END  METHOD;      (*  UpdateStatus  *) 

(* *) 


TELL  METHOD  PrepareToFire( IN  pltTargetList  :  StackObj); 
VAR 

INTEGER; 

ATGMOb j ; 

EnemyVehicleObj; 

BOOLEAN; 


i,  j ,  numTargets 

dragon 

tgt 

passed 


BEGIN 

j  :-  1; 

numTargets  :=  ASK  pltTargetList  numberln; 

FOR  i  :  =  1  TO  numTargets 
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passed  :  =  FALSE; 

tgt    :=  ASK  pltTargetList  TO  Remove(); 

IF  j  >  strength[ dragongunner] 

TELL  myHQ  TO  TargetHandover( tgt ,  location); 
passed  : =  TRUE; 
ELSE 
LOOP 

dragon  :=  missileSection[  j]  ; 
IF  ASK  dragon  missile. ammoCount  >  0 
TELL  dragon  TO  Target(tgt); 
passed  :  =  TRUE; 
engaging  :  =  TRUE; 

IF  (numTargets  =  1)  AND  (j  <  strength[ dragongunner]  ) 
dragon  :=  rr.issileSection[  j+1]  ; 
TELL  dragon  TO  Wait; 
END  IF; 
EXIT; 
END  IF; 
INC(j); 
IF  j  >  strength[ dragongunner] 

EXIT; 
END  IF; 
END  LOOP; 
IF  NOT  passed 

TELL  myHQ  TO  TargetHandover( tgt ,  location); 
END  IF; 
END  IF; 
INC(j); 
END  FOR; 
END  METHOD;       (*  PrepareToFire  *) 

(* *) 

TELL  METHOD  ReAssign(IN  target  :  EnemyVehicleObj ); 
VAR 

INTEGER; 


1 

reassigned 

dragon 


BOOLEAN 
ATGMObj 


BEGIN 

reassigned  :=  FALSE; 

WAIT  DURATION  RegroupTime 

UpdateStatus; 

IF  NOT  outOfATGMammo 

FOR  i  :  =  1  TO  strength[ dragongunner] 
dragon  :=  missileSection[  i]  ; 
IF  (ASK  dragon  missile. ammoCount  >  0)  AND 

(ASK  dragon  targetStatus  =  killed) 
IF  walkingThru 

OUTPUT( "Reassigning  " .target. idNumber,"  to  ", dragon,  identity); 
ASK  EngagementHistory  TO  WriteString( "Reassigning  "); 
ASK  EngagementHistory  TO  WriteInt(ASK  target  idNumber, 3); 
ASK  EngagementHistory  TO  WriteString( "  to  "); 
ASK  EngagementHistory  TO  WriteString( ASK  dragon 

identity); 
ASK  EngagementHistory  TO  WriteLn; 
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END  IF; 

TELL  dragon  TO  Target(target); 
engaging   :  =  TRUE; 
reassigned  :=  TRUE; 
EXIT; 
END  IF; 
END  FOR; 

IF  NOT  reassigned 
IF  walkingThru 

OUTPUT( identity,"  handing  over  ",ASK  target  idNumber); 
END  IF; 

TELL  myHQ  TO  TargetHandover( target ,  location); 
END  IF; 
ELSE 

IF  walkingThru 

OUTPUT( identity,"  handing  over  ",ASK  target  idNumber); 
END  IF; 

TELL  myHQ  TO  TargetHandover( target ,  location); 
END  IF; 
END  WAIT; 
END  METHOD;        (*  ReAssign  *) 


TELL  METHOD  Fire; 
VAR 

i       :  INTEGER; 

dragon   :  ATGMObj; 

BEGIN 

IF  strength[ dragongunner]  >  0 

FOR  i  : =  1  TO  strength[ dragongunner] 
dragon  :=  missileSection[  i]  ; 
TELL  dragon  TO  Fire; 
END  FOR; 
END  IF; 
END  METHOD;        (*  Fire  *) 


TELL  METHOD  FinalAssault; 
VAR 

i       :  INTEGER; 

dragon   :  ATGMObj; 

BEGIN 

finalAssault  :=  TRUE; 

IF  strength[ dragongunner]  >  0 

FOR  i  :=  1  TO  strength[ dragongunner] 
dragon  :=  missileSection[  i]  ; 
IF  (ASK  dragon  targetStatus  <>  killed) 
AND  (NOT  ASK  dragon  unassigned) 
TELL  dragon  TO  EngageArraorTarget; 
END  IF; 
END  FOR; 
END  IF; 
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*) 


END  METHOD;      (*  FinalAssault  *) 
(*  - *) 

TELL  METHOD  InterruptFire; 
VAR 

i       :  INTEGER; 

dragon   :  ATGMObj; 

BEGIN 

IF  strength[ dragongunner]  >  0 

FOR  i  :=  1  TO  strength[ dragongunner] 
dragon  :=  missileSection[  i]  ; 
TELL  dragon  TO  InterruptMissileFire; 
END  FOR; 
END  IF; 
END  METHOD;     (*  InterruptFire  *) 

END  OBJECT;  (*  FPCObj  *) 

END  MODULE. 
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E.  ATGM 


DEFINITION  MODULE  ATGM; 


FROM  SimMod 
FROM  RandMod 
FROM  FPC 
FROM  OPFOR 
FROM  Weapons 
FROM  Globals 

TYPE 


IMPORT  TriggerObj; 
IMPORT  RandomObj; 
IMPORT  FPCObj; 
IMPORT  EnemyVehicleObj; 
IMPORT  MissileRecordType; 
IMPORT  TargetStatusType; 


FPCObj; 

STRING; 

STRING; 

MissileRecordType; 

TriggerObj; 

EnemyVehicleObj; 

REAL; 

TargetStatusType; 


ATGMObj  =  OBJECT 
my Unit 
identity 
location 
missile 
permission 
assignedTarget 
distanceToTarget 
targetStatus 
engaging, 
unassigned, 
acquired, 
ready, 
tracking, 

firingComplete     :  BOOLEAN; 
ASK  METHOD  ATGMInit(IN  unit  :  FPCObj; 

IN  id   :  STRING); 
ASK  METHOD  UpdateMissj leStatus; 

ASK  METHOD  SetLocation( IN  coordinate  :  STRING); 
TELL  METHOD  Target(IN  target  :  EnemyVehicleObj); 
TELL  METHOD  Wait; 
TELL  METHOD  EngageArmorTarget; 
TELL  METHOD  PrepMissile; 
TELL  METHOD  AcquireTarget; 
TELL  METHOD  Fire; 
TELL  METHOD  TrackMissile; 
TELL  METHOD  CutWires; 
TELL  METHOD  InterruptMissileFire; 
END  OBJECT; 

END  MODULE. 
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IMPLEMENTATION  MODULE  ATGM; 


FROM 

SimMod 

IMPORT 

FROM 

OPFOR 

IMPORT 

FROM 

FPC 

IMPORT 

FROM 

MapRecon 

IMPORT 

FROM 

Impact 

IMPORT 

FROM 

Weapons 

IMPORT 

FROM 

Menu 

IMPORT 

FROM 

MOE 

IMPORT 

FROM 

Globals 

IMPORT 

Interrupt; 

EnemvVehicleObj; 

FPCObj; 

Distance; 

ALL  ImpactAreaType ,  AspectAngle,  AssessDaraage; 

ALL  MissileType,  MissileSystem; 

walkingThru; 

TotalOPFORlosses; 

ALL  WeaponsStatusType,  OutputFile, 

EngagementHistory ,  WeaponsStatus , 

ALL  TargetStatusType,  HitOrMiss; 


OBJECT  ATGMObj; 


(* 


ASK  METHOD  ATGMInit 

[IN  unit 

:  FPCObj; 

IN  id    :  STRING); 

BEGIN 

myUnit 

= 

unit; 

identity 

= 

id; 

location 

= 

ASK  myUnit  location; 

missile 

— 

CLONE(MissileSystem[  Dragon]  ); 

assignedTarget 

= 

NILOBJ; 

unassigned 

= 

FALSE; 

targetStatus 

= 

missed; 

acquired 

= 

FALSE 

ready 

= 

FALSE 

tracking 

= 

FALSE 

f iringComplete 

= 

FALSE 

engaging 

= 

FALSE 

NEW( permission); 

END  METHOD;   (*  ATGMInit  *) 

ASK  METHOD  UpdateMissileStatus; 

(,v  PrepMissile  and  AcquireTarget  invoke  this  method  when 
their  status  changes   ,v) 

BEGIN 

IF  acquired 
ready  :  =  TRUE; 
IF  WeaponsStatus  =  HOLD 

ASK  myUnit  TO  UpdateStatus; 
ELSE 

TELL  permission  TO  Trigger; 
END  IF; 
END  IF; 
END  METHOD;   (*  UpdateMissileStatus  *) 


ASK  METHOD  SetLocation(  IN  coordinate  :  STRING); 
BEGIN 
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* 


location   :=  coordinate; 
END  METHOD;   (*  SetLocation  *) 

*) 

TELL  METHOD  Target (IN  target  :  EnemyVehicleObj ); 
BEGIN 

unassigned     :=  FALSE; 

assignedTarget  :=  target; 

targetStatus   :=  missed; 

engaging       :  =  TRUE; 

IF  missile.  ammoCount  >  0 
Engage ArmorTar get; 

ELSE 

TELL  mvUnit  TO  ReAssign( target ); 

END  IF; 
END  METHOD;   (*  Target  *) 

c*   *) 

TELL  METHOD  Wait; 
BEGIN 

engaging       :  =  FALSE; 

unassigned     :=  TRUE; 

ready  : =  TRUE; 

targetStatus    :=  killed; 

f iringComplete  :=  TRUE; 

assignedTarget  :=  NILOBJ; 

ASK  mvUnit  TO  UpdateStatus; 
END  METHOD;   (*  Wait  *) 

(*   *) 

TELL  METHOD  EngageArmorTarget; 

(,v  This  method  simulates  an  ATGM  (Dragon/TOW)  engagement.  The 
gunner  receives  a  fire  mission,  prepares  the  missile,  acquires 
the  target,  fires,  and  tracks  the  missile  until  impact  or 
interrupted  by  incoming  fires.  ,v) 

BEGIN 

(*  The  WAIT  FOR  is  used  below  so  that  any  methods  waiting  will  also 
terminate  if  one  is  interrupted.   *) 
WAIT  FOR  SELF  TO  PrepMissile; 
END  WAIT; 

WAIT  FOR  permission  TO  Fire  (*from  UpdateMissileStatus  or  Fire*) 
IF  distanceToTarget  <=  missile. maxEffRange 
WAIT  FOR  SELF  TO  TrackMissile 
END  WAIT; 
ELSIF  ASK  myUnit  finalAssault 

Wait;   (*  moved  out  of  range  of  previously  assigned  target  *) 
IF  walkingThru 

ASK  EngagementHistory  TO  WriteString( identity); 
ASK  EngagementHistory  TO  WriteString("  moved  out  of  "); 
ASK  EngagementHistory  TO  WriteString("  range  of  target  "); 
ASK  EngagementHistory  TO 

Writelnt( assignedTarget.  idNumber ,3); 
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ASK  EngagementHistory  TO  WriteLn; 
END  IF; 
ELSE 

acquired       : =  FALSE; 
ready  : =  FALSE; 

f iringComplete  :=  TRUE; 
END  IF; 

ASK  myUnit  TO  UpdateStatus; 
ON  INTERRUPT 
TERMINATE; 
END  WAIT; 
END  METHOD;   (*  EngageArmorTarget  *) 


TELL  METHOD  PrepMissile; 
BEGIN 

WAIT  DURATION  missile. prepTime 

AcquireTarget; 
ON  INTERRUPT   (*  Take  cover!  Incoming  fires. 

TERMINATE; 
END  WAIT; 
END  METHOD;   (*  PrepMissile  *) 


(*   *) 

TELL  METHOD  AcquireTarget; 
BEGIN 

WAIT  DURATION  missile. acquisitionTime 
IF  assignedTarget  <>  NILOBJ 

distanceToTarget  :=  Distance( location,  ASK  assignedTarget 

location); 
acquired   : =  TRUE; 
UpdateMissileStatus; 
ELSE 

TERMINATE; 
END  IF; 
ON  INTERRUPT  (•'■'  Take  cover!  Incoming  fires...  *) 
acquired  : =  FALSE; 
TERMINATE; 
END  WAIT; 
END  METHOD;   (*  AcquireTarget  *) 

(*   *) 

TELL  METHOD  Fire; 
BEGIN 

TELL  permission  TO  Trigger; 
END  METHOD;   (*  Fire  *) 

(*   *) 

TELL  METHOD  TrackMissile; 
VAR 

result    :  TargetStatusType; 

region    :  ImpactAreaType; 
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BEGIN 

tracking   :  =  TRUE; 

WAIT  DURATION  distanceToTarget  /  missile,  velocity  ('^tracking  time*) 
missile. ammoCount  :=  missile.  ammoCount  -  1; 
tracking  :  =  FALSE; 
CutWires; 
IF  walkingThru 

ASK  EngagementHistory  TO  WriteString( identity); 
END  IF; 
(*  sample  probability  of  hit  •') 

IF  ASK  HitOrMiss  L'niformReal(0.  0, 1.  0)  <  missile. pHit 
region  :=  AspectAngle( location,  assignedTarget); 
result  :=  AssessDamage(missile ,  assignedTarget,  region); 
targetStatus  :=  result; 
IF  walkingThru 
0UTPUT( identity,"  ", result,"  ",ASK  assignedTarget 

idNumber); 
END  IF; 
CASE  result 
WHEN  killed  : 

TotalOPFORlosses  :=  TotalOPFORlosses  +  1; 
engaging         :  =  FALSE; 
ASK  assignedTarget  TO 

VehicleTerminate( missile. system,ORD( region) ); 
IF  walkingThru 

ASK  EngagementHistory  TO  WriteString("  killed"); 
ASK  EngagementHistory  TO  WriteInt(ASK 

assignedTarget  idNumber, 3); 
END  IF; 

assignedTarget  :=  NILOBJ; 
WHEN  damaged: 
IF  walkingThru 

ASK  EngagementHistory  TO  WriteString("  damaged  "); 
ASK  EngagementHistory  TO  WriteInt(ASK 

assignedTarget  idNumber, 3); 
END  IF; 

IF  missile. ammoCount  =  0 
engaging  :  =  FALSE; 

TELL  myUnit  TO  ReAssign( assignedTarget); 
ELSIF  ASK  myUnit  finalAssault 

EngageArmorTarget; 
END  IF; 
END  CASE; 
ELSE 

targetStatus  :=  missed; 
IF  walkingThru 

0UTPUT( identity,"  missed  ",  ASK  assignedTarget  idNumber); 
ASK  EngagementHistory  TO  WriteString("  missed  "); 
ASK  EngagementHistory  TO  WriteInt(ASK  assignedTarget 

idNumber ,3); 
END  IF; 

IF  missile. ammoCount  =  0 
engaging  :=  FALSE; 

TELL  myUnit  TO  ReAssign(assignedTarget); 
ELSIF  ASK  myUnit  finalAssault 
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Engage ArmorTarget; 
END  IF; 
END  IF; 
IF  walkingThru 

ASK  EngagementHistory  TO  WriteLn; 
END  IF; 
ON  INTERRUPT  (*  Take  Cover!  Incoming  fires...  *) 
DEC(missile.  ammoCount);   (*  lost  missile  *) 
IF  walkingThru 

OUTPUT( identity ,"  lost  missile  during  artillery  strike  "); 
END  IF; 

tracking  :  =  FALSE; 
IF  missile. ammoCount  =  0 
engaging  : =  FALSE; 

TELL  mylinit  TO  ReAssign(assignedTarget); 
END  IF; 
TERMINATE; 
END  WAIT; 
END  METHOD;  (*  TrackMissile  *) 

(*   *) 

TELL  METHOD  CutWires; 
BEGIN 

(,v  elapse  time  to  dismount  Dragon  sight  or  cut  TOW  wires  *) 
WAIT  DURATION  missile. cutTime 
acquired       :  =  FALSE; 
ready  :  =  FALSE; 

f iringComplete  :=  TRUE; 
ASK  myUnit  TO  UpdateStatus; 
END  WAIT; 
END  METHOD;   (*  CutWires  *) 

(*   *) 

TELL  METHOD  InterruptMissileFire; 

(*   called  from  higher  unit  receiving  indirect  fires   *) 

BEGIN 

Interrupt(SELF,"PrepMissileM); 

Interrupt(SELF,"AcquireTarget"); 

Interrupt( SELF , "TrackMissile"); 

ASK  mvUnit  TO  UpdateStatus; 
END  METHOD;   (*  InterruptMissileFire  *) 

END  OBJECT;   (*   ATGMObject   *) 

END  MODULE. 
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F.  MAPRECON 


DEFINITION  MODULE  MapRecon; 

FROM  GrpMod   IMPORT  StackObj; 
FROM  Globals  IMPORT  UnitNaraeType; 


TYPE 


SymbolType  =  (ATKPSN,  ID,  CP1,  CP2,  CP3 ,  CP4,  CP5 ,  CP6, 

CP7,  CP8,  CP9,  CP10,  ASLTPSN,  INTOBJ,  OBJ); 

TargetList  =  ARRAY  UnitNameType  OF  StackObj; 

PositionRecordType  =  RECORD 


symbol 
coordinate 
f iringPositions 
nextPosition 
END  RECORD; 


SymbolType; 

STRING; 

ARRAY  INTEGER  OF  STRING; 

PositionRecordType; 


UnitMovementRouteList  =  ARRAY  UnitNameType  OF  PositionRecordType; 
PROCEDURE  ModelOperationsOverlay; 

PROCEDURE  Distance(IN  coordl,  coord2  :  STRING):  REAL; 
VAR 


position 
Unit Route 
UnitTar get List 

END  MODULE. 


Pos  it  ionRecordType; 

UnitMovementRouteList; 

TargetList; 
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IMPLEMENTATION  MODULE  MapRecon; 

FROM  MathMod  IMPORT  SQRT,  CEIL; 

FROM  GrpMod   IMPORT  StackObj; 

FROM  IOMod    IMPORT  StreamObj ,  FileUseType( Input); 

FROM  OPFOR   IMPORT  EnemyVehicleRef ; 

FROM  Menu    IMPORT  selectedModel ,  walkingThru; 

FROM  Globals  IMPORT  ALL  UnitNameTvpe; 


PROCEDURE  Mode lOperationsOver lay; 
VAR 

i,  numTgts ,  targetID, 

numFiringPositions , 

symbolCrossRef  erenceNumber 

nilentry 

J 
coordinate 

TerrainDataFile 

targetList 

futurePosition 


INTEGER; 

STRING;  ' 

UnitNameType; 

STRING; 

StreamObj; 

StackObj; 

PositionRecordType; 


BEGIN 

j  :=  A; 

NEW( TerrainDataFile); 

CASE  selectedModel 

WHEN  1  :  ASK  TerrainDataFile  TO  Open( "terrain. dat" ,  Input); 
WHEN  2  :  ASK  TerrainDataFile  TO  0pen("terrain2. dat" ,  Input); 
OTHERWISE 

ASK  TerrainDataFile  TO  0pen("terrain3. dat" ,  Input); 
END  CASE; 

ASK  TerrainDataFile  TO  ReadLine(nilentry); 
NEW(UnitRoute,  A. . D); 
NEW(UnitTargetList,  A. .D); 
WHILE  NOT  ASK  TerrainDataFile  eof 
WHILE  j  <=  C 
ASK  TerrainDataFile  TO  ReadLine(nilentry); 
LOOP 
NEW( posit  ion); 

ASK  TerrainDataFile  TO  ReadInt(symbolCrossRef erenceNumber); 
position. symbol  :=  VAL(SymbolType ,  symbolCrossReferenceNumber); 
ASK  TerrainDataFile  TO  ReadString(position. coordinate); 
ASK  TerrainDataFile  TO  Readlnt(numFiringPositions); 
IF  numFiringPositions  >  0 

NEW(position. f iringPositions ,  1. .numFiringPositions); 
FOR  i  :=  1  TO  numFiringPositions 
ASK  TerrainDataFile  TO 

ReadString(position. f iringPositions[ i] ); 
END  FOR; 
END  IF; 

ASK  TerrainDataFile  TO  ReadLine(nilentry); 
IF  symbolCrossReferenceNumber  <  ORD(OBJ) 
position. nextPosition  :=  futurePosition; 
END  IF; 

futurePosition  :=  position; 
IF  symbolCrossReferenceNumber  =  0 
EXIT; 
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END  IF; 
END  LOOP; 

UnitRoute[j]  :=  position; 

ASK  TerrainDataFile  TO  ReadLine(nilentry); 
ASK  TerrainDataFile  TO  ReadLine(nilentry); 
ASK  TerrainDataFile  TO  Readlnt(numTgts); 
IF  numTgts  >  0 

NEW(UnitTargetList[  j]  ); 
FOR  i  : =  1  TO  numTgts 

ASK  TerrainDataFile  TO  Readlnt( targetID); 
ASK  UnitTargetList[  j]  TO 

Add(EnemyVehicleRef[ targetID]  ); 
END  FOR; 

ASK  TerrainDataFile  TO  ReadLine(nilentry); 
END  IF; 
INC(j); 
END  WHILE; 
END  WHILE; 

ASK  TerrainDataFile  TO  Close; 
DISPOSE( TerrainDataFile); 
IF  walkingThru 

OUTPUT(  Model  Operations  Overlay  complete.  "); 
OUTPUT; 
END  IF; 
END  PROCEDURE;   (*  ModelOperationsOverlay  *) 

(*  *) 

PROCEDURE  Distance(IN  coordl,  coord2  :  STRING)  :  REAL; 

(*  Given  two  locations  in  UTM  Grid  Coordinates ,(  note  these 

are  6-digit  (lOOmeter)  coordinates  with  two  letter  identifier) 
this  subroutine  determines  the  straight-line  distance  in  meters 
between  the  two  points.   A  critical  assumption  of  this  procedure  is 
that  the  two  points  will,  at  most,  lie  on  two  adjacent  map  sheets."'") 


VAR 


gridldentifierl,  gridldentif ier2  :  STRING; 
Xcoordl,  Xcoord2 , 

Ycoordl,  Ycoord2  :  REAL; 

DeltaX,  DeltaY  :  REAL; 

northcoord,  southcoord, 

eastcoord,  westcoord         :  REAL; 


BEGIN 


gridldentifierl 

gridldentif ier2 

Xcoordl 

Xcoord2 

Ycoordl 

Ycoord2 


=  SUBSTR( 1,2, coordl); 

=  SUBSTR(l,2,coord2); 

=  STRTOREAL(SUBSTR( 3,5, coordl)); 

=  STRTOREAL(SUBSTR(3,5,coord2)); 

=  STRT0REAL(SUBSTR(6,8,coordl)); 

=  STRT0REAL(SUBSTR(6,8,coord2)); 


(*  The  following  variables  are  used  when  the  two  points  lie  on  adjacent 
map  sheets.   "'•') 
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northcoord 
southcoord 
eastcoord 
westcoord 


=  1000.0  +  MIN0F(Ycoordl,Ycoord2); 
=  MAX0F(Ycoordl,Ycoord2); 
=  1000.0  +  MIN0F(Xcoordl,Xcoord2); 
=  MAX0F(Xcoordl,Xcoord2); 


IF  gridldentif ierl  =  gridldentif ier2 
(*  Locations  are  within  the  same  100,000  square  meter  grid 
identification  zone.  *) 
DeltaX  :=  ABS(Xcoordl  -  Xcoord2); 
DeltaY  :=  ABS(Ycoordl  -  Ycoord2); 

ELSIF  SCHAR(gridIdentifierl,l)  =  SCHAR(gridIdentif ier2 , 1) 
(*  Locations  are  in  adjacent  North-South  grid 
identification  zones. *) 
DeltaX     :=  ABS(Xcoordl  -  Xcoord2); 
DeltaY     :=  northcoord  -  southcoord; 

ELSIF  SCHAR(gridIdentifierl,2)  =  SCHAR(gridIdentif ier2 ,2) 
(,v  Locations  are  in  adjacent  East-West  grid 
identification  zones.*) 
DeltaX     :=  eastcoord  -  westcoord; 
DeltaY     :=  ABS(Ycoordl  -  Ycoord2); 

ELSE 
(*  Locations  are  in  diagonally  adjacent  grid 
identification  zones.*) 
DeltaX     :=  eastcoord  -  westcoord; 
DeltaY     :=  northcoord  -  southcoord; 

END  IF; 

RETURN  (SQRT(DeltaX*DeltaX  +  DeltaY*DeltaY) )  *  100.0; 
END  PROCEDURE;  (*  Distance  *) 
END  MODULE. 
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G.  OPFOR 


DEFINITION  MODULE  OPFOR; 

FROM  RandMod  IMPORT  RandomObj; 
FROM  Weapons  IMPORT  MissileType; 


TYPE 

Enemy Vehic 1 eType 


(BMF,  BRDM,  T72,  ZSU234); 


EnemyVehicleObj  =  OBJECT 
idNumber, 


engagement Count 
type 

location 
orientation 


INTEGER; 

Enemy Vehic 1 eType; 

STRING;  (*  UTM  Grid  coordinate  *) 

INTEGER; 
ASK  METHOD  Objlnit; 

ASK  METHOD  VehicleTerminate( IN  whatShotMe  :  MissileType; 

IN  where      :  INTEGER); 
END  OBJECT; 

EnemyVehicleRefList  =  ARRAY  INTEGER  OF  EnemyVehicleObj; 

PROCEDURE  ModelEnemyDefense; 


VAR 

defender 

IDnumber 

Type 

Location 

Orientation 

EnemyVehicleRef 

END  MODULE. 


EnemyVehicleObj; 

INTEGER; 

EnemvVehicl eType; 

STRING; 

INTEGER; 

EnemyVehicleRefList; 
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IMPLEMENTATION  MODULE  OPFOR; 


FROM  SimMod 
FROM  IOMod 
FROM  Weapons 
FROM  Globals 
FROM  MOE 
FROM  Menu 


IMPORT  SimTime; 

IMPORT  StreamObj,  FileUseType( Input); 

IMPORT  ALL  MissileType; 

IMPORT  OutputFile; 

IMPORT  TotalOPFORstarting,  TotalOPFORlosses; 

IMPORT  walkingThru; 


PROCEDURE  ModelEnemyDefense; 
VAR 

OPFORdataFile 

enemyVehicleCrossReferenceNumber 

nilentry 


StreamObj; 

INTEGER; 
STRING; 


BEGIN 

TotalOPFORlosses    :=  0; 

TotalOPFORstarting  :=  0; 

NEW(OPFORdataFile); 

ASK  OPFORdataFile  TO  Open( "opfor. dat" ,  Input); 

ASK  OPFORdataFile  TO  ReadLine(nilentrv); 

NEW(EnemyVehicleRef ,  93. . 210); 

WHILE  NOT  ASK  OPFORdataFile  eof 

ASK  OPFORdataFile  TO  Readlnt( IDnumber); 

ASK  OPFORdataFile  TO  Readlnt(enemyVehicleCrossReferenceNumber); 

ASK  OPFORdataFile  TO  ReadString( Location); 

ASK  OPFORdataFile  TO  Readlnt(Orientation); 

ASK  OPFORdataFile  TO  ReadLine(nilentry); 

Type  :  =  VAL(EnemyVehicleType,enemyVehicleCrossReferenceNumber); 

NEW( defender); 

TotalOPFORstarting        :=  TotalOPFORstarting  +  1; 

EnemyVehicleRef [ IDnumber]  :=  CL0NE(def ender); 
END  WHILE; 

ASK  OPFORdataFile  TO  Close; 
DISPOSE( OPFORdataFile); 
IF  walkingThru 

0UTPUT(  Model  Enemy  Defense  complete. 

OUTPUT; 
END  IF; 
END  PROCEDURE;   (*  ModelEnemyDefense  *) 


"); 


(* 


*) 


OBJECT  EnemyVehicleObj; 


ASK  METHOD  Objlnit; 
BEGIN 

idNumber 

type 

location 

orientation 

engagementCount 
END  METHOD; 


(* 


=  IDnumber; 
=  Type; 
=  Location; 
=  Orientation; 
=  0; 
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ASK  METHOD  VehicleTerrainate( IN  whatShotMe 

IN  where 
VAR 

weapon, 
region, 
vehicleType 


MissileType; 
INTEGER); 


STRING; 

weapon  : =  "dragon"; 
"TOW"; 


weapon  : = 


region 
region 


"frontal"; 
"flank"; 


region  : =  rear 


vehicleType 
vehicleType 
vehicleType 


=  "BMP": 
=  "BRDM  ; 
=  "T72"; 


vehicleType  :=  "ZSU234"; 


BEGIN 
IF  walkingThru 
CASE  whatShotMe 
WHEN  Dragon 
OTHERWISE 

END  CASE; 
CASE  where 

WHEN  0 

WHEN  1 

OTHERWISE 

END  CASE; 
CASE  type 

WHEN  BMP 

WHEN  BRDM 

WHEN  T72 

OTHERWISE 

END  CASE; 

engagementCount  :  =  engagementCount  +  1; 

IF  engagementCount  >  1 

ASK  OutputFile  TO  WriteString("Multiply  engaged  target"); 

ASK  OutputFile  TO  Writelnt( engagementCount ,  5); 

ASK  OutputFile  TO  WriteString("  engagements  thus  far."); 
END  IF; 

ASK  OutputFile  TO  WriteString( "Enemy  "); 
ASK  OutputFile  TO  WriteString( vehicleType); 
ASK  OutputFile  TO  WriteString( "  number  ); 
ASK  OutputFile  TO  Writelnt( idNumber ,5); 
ASK  OutputFile  TO  WriteString("  KIA. "); 
ASK  OutputFile  TO  WriteLn; 

ASK  OutputFile  TO  WriteString("  Killed  at  H  +  "); 
ASK  OutputFile  TO  WriteReaK SimTime( )/3600. 0,4, 1); 
ASK  OutputFile  TO  WriteString("hrs  by  weapon  type  "); 
ASK  OutputFile  TO  WriteString(weapon); 
ASK  OutputFile  TO  WriteString("  from  a  "); 
ASK  OutputFile  TO  WriteString( region): 
ASK  OutputFile  TO  WriteString("  shot.  ); 
ASK  OutputFile  TO  WriteLn; 
ASK  OutputFile  TO  WriteLn; 
END  IF; 
END  METHOD; 

END  OBJECT; 

END  MODULE. 
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H.  IMPACT 


DEFINITION  MODULE  Impact; 

FROM  OPFOR    IMPORT  EnemyVehicleObj ; 
FROM  Weapons  IMPORT  MissileRecordType; 
FROM  Globals  IMPORT  TargetStatusType; 

TYPE 

ImpactAreaType  =  (front,  flank,  rear); 

PROCEDURE  AspectAngle(IN  GunLocation  :  STRING; 

IN  Target      :  EnemyVehicleObj)  : 

ImpactAreaType; 


PROCEDURE  AssessDamage(IN  missile 

IN  target 
IN  impactPoint 


END  MODULE. 


MissileRecordType; 
EnemyVehicleObj; 
ImpactAreaType)  : 

TargetStatusType; 
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IMPLEMENTATION  MODULE  Impact; 


FROM  MathMod 
FROM  OPFOR 
FROM  Weapons 
FROM  Globals 


IMPORT  ATAN,  ACOS ,  SIN,  COS,  pi; 

IMPORT  EnemyVehicleObj; 

IMPORT  ALL  MissileType,  MissileRecordType; 

IMPORT  ALL  TargetStatusType,  BDA; 


PROCEDURE  AspectAngle(IN  GunLocation 

IN  Target 


STRING  ; 
EnemyVehicleObj)   : 

Impact AreaType; 


(*  Given  a  gun  location  and  a  target  location  in  6-digit  (100  m) 
UTM  coordinates  with  two  letter  identifier, 
this  procedure  determines  the  engagement  aspect  angle  and 
returns  the  region  of  the  target  in  which  the  round  impacts. 
This  model  assumes  targets  are  symmetric  with  respect  to  their 
center  of  mass. 

Calculation  of  aspect  angle  is  based  on  vector  mathematics, 
where  the  aspect  angle  ALPHA  is  obtained  from  the  dot  product  of 
the  gun-target  vector  GAMMA,  and  the  target  orientation  vector 
THETA,  where  the  target  location  is  the  origin  with  Grid  North  as 
0  degrees.  ,v) 


VAR 

ALPHA,  GAMMA,  THETA  :  REAL; 

gridldentif ierGun,  gridldentif ierTgt  :  STRING; 

gunXcoord,  tgtXcoord, 

gunYcoord,  tgtYcoord  :  INTEGER; 

DeltaX,  DeltaY  :  INTEGER; 

northcoord,  southcoord, 

eastcoord,  westcoord  :  INTEGER; 

BEGIN 


gridldentif ierGun 

gridldentif ierTgt 

gunXcoord 

tgtXcoord 

gunYcoord 

tgtYcoord 


SUBSTR( 1 , 2 , GunLocation); 
SUBSTR(1,2,ASK  Target  location); 
STRT0INT( SUBSTR( 3 , 5 , GunLocation) ) ; 
STRT0INT(SUBSTR(3,5,ASK  Target  location)); 
STRT0INT( SUBSTR( 6,8, GunLocat  ion) ) ; 
STRT0INT(SUBSTR(6,8,ASK  Target  location)); 


(,v  The  following  variables  are  used  when  the  two  points  lie  on 
adjacent  map  sheets.  *) 


northcoord 
southcoord 
eastcoord 
westcoord 


=  1000  +  MINOF(gunYcoord,tgtYcoord); 
=  MAX0F( gunYcoord, tgtYcoord); 
=  1000  +  MIN0F( gunXcoord, tgtXcoord); 
=  MAX0F( gunXcoord, tgtXcoord); 


(*  Convert  target  orientation  angle  to  radians.   *) 
THETA  :=  FL0AT(ASK  Target  orientation)  *  pi  /  180.0; 
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(*  Determine  the  horizontal  and  vertical  components  of  the 
gun-target  vector.     ,v) 

IF  gridldentif ierGun  =  gridldentif ierTgt 
(*  Locations  are  within  the  same  100,000m  square 
identification  zone.  *) 
DeltaX     :=  ABS(gunXcoord  -  tgtXcoord); 
DeltaY     :=  ABS(gunYcoord  -  tgtYcoord); 
(*  in  this  case,  the  components  do  not  need  to  be  normalized  *) 
northcoord  :=  MAXOF(gunYcoord, tgtYcoord); 
eastcoord   :=  MAXOF(gunXcoord, tgtXcoord); 

ELSIF  SCHARCgridldentif ierGun, 1)  =  SCHAR( gridldentif ierTgt , 1) 
(*  Locations  are  in  adjacent  North-South  grid 
identification  zones.*) 
DeltaX  :=  ABS(gunXcoord  -  tgtXcoord); 
DeltaY  :=  northcoord  -  southcoord; 

ELSIF  SCHAR(gridIdentifierGun,2)  =  SCHARCgridldentif ierTgt ,2) 
(*  Locations  are  in  adjacent  East-West  grid 
identification  zones.") 
DeltaX  :=  eastcoord  -  westcoord; 
DeltaY  :=  ABS(gunYcoord  -  tgtYcoord); 

ELSE 
(,v  Locations  are  in  diagonally  adjacent  grid 
identification  zones.*) 
DeltaX  :=  eastcoord  -  westcoord; 
DeltaY  : =  northcoord  -  southcoord; 

END  IF; 

(*  Now  determine  the  angle,  GAMMA,  between  the  gun-target  line  and 
Grid  North. 
First  case. . . target  is  north  of  the  gun  *) 

IF  (northcoord  =  1000  +  tgtYcoord)  OR  (northcoord  =  tgtYcoord) 

DeltaY  :=  -  DeltaY; 
END  IF; 

(*  Second  case. . . target  is  east  of  the  gun  *) 
IF  (eastcoord  =  1000  +  tgtXcoord)  OR  (eastcoord  =  tgtXcoord) 

DeltaX  :=  -  DeltaX; 
END  IF; 

IF  DeltaY  =  0 
IF  DeltaX  >  0 

GAMMA  :=  pi/2.  0; 
ELSE 

GAMMA  :=   -pi/2.  0; 
END  IF; 
ELSE 

GAMMA  :=  ATAN(FL0AT(DeltaX)/FL0AT( DeltaY) ); 
END  IF; 

IF  ((DeltaY  <  0)  AND  (DeltaX  >  0))   (*gun  is  in  the  4th  quad-) 
OR  ((DeltaY  <  0)  AND  (DeltaX  <  0))(*gun  is  in  the  3rd  quad-) 
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GAMMA  :=  GAMMA  +  pi; 
END  IF; 
IF  ((DeltaY  >  0)  AND  (DeltaX  <  0))   (*gun  is  in  the  2nd  quad*) 

GAMMA  :=  GAMMA  +  2.0  *  pi; 
END  IF; 

(*  Now  we  can  get  aspect  angle  ALPHA  *) 

ALPHA  :=  ACOS(SIN(GAMMA)*SIN(THETA)  +  COS(GAMMA)*COS(THETA)); 

(*  The  aspect  angle  identifies  one  of  the  three  regions  of 

impact:  front,  flank,  rear  *) 

IF  (ALPHA  >=  7.  0*pi/4.  0)  OR  (ALPHA  <=  pi/4.0) 

RETURN  front; 
ELSIF  (ALPHA  >=  3. 0*pi/4. 0)  AND  (ALPHA  <=  5. 0*pi/4. 0) 

RETURN  rear; 
ELSE 

RETURN  flank; 
END  IF; 

END  PROCEDURE; 


(* 


PROCEDURE  AssessDamage(IN  missile 

IN  target 
IN  impactPoint 


MissileRecordType; 
EnemyVehicleObj; 
ImpactAreaType)  : 

Target St atusType; 
BEGIN 

IF  ASK  BDA  UniformReal(0.  0,1.  0)  < 

missile.  pKil.l[  0RD(  target,  type)  ,0RD(  impactPoint)] 
RETURN  killed; 
ELSE 

RETURN  damaged; 
END  IF; 
END  PROCEDURE; 


END  MODULE. 
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I.     WEAPONS 

DEFINITION  MODULE  Weapons; 

TYPE 

MissileType  =  (Dragon,  TOW); 

KillProbList  =  ARRAY  INTEGER,  INTEGER  OF  REAL; 

(*  ARRAY  EnemyVehicleType,  ImpactAreaType.  .  .  *) 

MissileEf f ectivenessList  =  ARRAY  MissileType  OF  KillProbList; 

MissileRecordType  =  RECORD 


system 
velocity , 
maxEf fRange, 
prepTime , 
acquis  it ionTime , 
cutTime 
ammoCount 
pKit 
pKill 
END  RECORD; 


MissileType; 


REAL; 
INTEGER; 
REAL; 
KillProbList; 


MissileSystemList  =  ARRAY  MissileType  OF  MissileRecordType; 
PROCEDURE  ReadMissileData; 


VAR 

missile 
Miss  ileSystem 
KillProb 
MissileEf feet 

END  MODULE. 


MissileRecordType; 

MissileSystemList; 

KillProbList; 

MissileEf f ectivenessList ; 
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IMPLEMENTATION  MODULE  Weapons; 

FROM  IOMod   IMPORT  StreamObj ,  FileUseType( Input); 


PROCEDURE  ReadKillProbData; 
VAR 
i 

J,  k 

nilentry 
KillDataFile 


MissileType; 
INTEGER; 
STRING; 
StreamObj; 


BEGIN 


NEW(KillDataFile); 

ASK  KillDataFile  TO  Open("pkill. dat" ,  Input); 

NEW(MissileEffect,  Dragon. .TOW); 

FOR  i  :=  Dragon  TO  TOW 

NEW(KillProb,  0.  .3,  0.  .  2); 

ASK  KillDataFile  TO  ReadLine(nilentry); 

FOR  j  :=  0  TO  3 

ASK  KillDataFile  TO  ReadString(nilentry); 
FOR  k  :=  0  TO  2 

ASK  KillDataFile  TO  ReadReal(KillProb[ j ,k] ); 
END  FOR; 
END  FOR; 

ASK  KillDataFile  TO  ReadLine(nilentry); 
MissileEffect[  i]  :=  CLONE(KillProb); 
DISPOSE(KillProb); 
END  FOR; 

ASK  KillDataFile  TO  Close; 
DISPOSE(KillDataFile); 
END  PROCEDURE;      (*  ReadKillProbData  *) 

(* *) 

PROCEDURE  ReadMissileData; 
VAR 

i 

nilentry 

WeaponsFile 


MissileType; 

STRING; 

StreamObj; 


BEGIN 

ReadKillProbData; 

NEW(WeaponsFile); 

ASK  WeaponsFile  TO  Open( "missile,  dat" ,  Input); 

ASK  WeaponsFile  TO  ReadLine(nilentry); 

NEW(MissileSystem,  Dragon. .TOW); 

FOR  i  :=  Dragon  TO  TOW 

NEW(missile); 

missile,  system  :=  i; 

ASK  WeaponsFile  TO  ReadLine(nilentry); 

ASK  WeaponsFile  TO  ReadReal(missile. velocity); 

ASK  WeaponsFile  TO  ReadReal(missile. maxEf fRange); 

ASK  WeaponsFile  TO  ReadReal(missile. prepTime); 

ASK  WeaponsFile  TO  ReadReal(missile.  acquisitionTime); 

ASK  WeaponsFile  TO  ReadReal(missile. cutTime); 
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ASK  WeaponsFile  TO  Readlnt(missile. ammoCount); 

ASK  WeaponsFile  TO  ReadReal(missile. pHit); 

ASK  WeaponsFile  TO  ReadLine(nilentry); 

missile.  pKill  :=  MissileEf  f ect[  i]  ; 

MissileSystem[  missile,  system]  :=  missile; 
END  FOR; 

ASK  WeaponsFile  TO  Close; 
DISPOSE( WeaponsFile); 
END  PROCEDURE; 

END  MODULE. 
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J.  ARTY 

DEFINITION  MODULE  Arty; 

FROM  Globals  IMPORT  UnitNameType; 

TYPE 

PROCEDURE  ScheduleOPFORArty; 

VAR 

ImpactTimeA, 

ImpactTimeB, 

ImpactTimeC   :  REAL; 

Pk  :  ARRAY  UnitNameType  OF  REAL; 

END  MODULE. 
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IMPLEMENTATION  MODULE  Arty; 

FROM  MathMod  IMPORT  POWER,  EXP,  SQRT; 

FROM  RandMod  IMPORT  RandomObj ,  FetchSeed; 

FROM  Globals  IMPORT  ALL  UnitNameType,  RoundGenerator; 

FROM  Menu    IMPORT  selectedModel ,  walkingThru; 

PROCEDURE  ScheduleOPFORArty; 


CONST 

GunsFiring 
LethalArea 
TargetArea 

VAR 

RoundsPerGun 

Z 

Unit 


=  6; 

=  1963.495 
=  28600.  0 


(-  ■&    -  lethal  radius  =  25m  *) 
(*  NTC  IFCAS  Box  *) 


INTEGER; 

REAL; 

UnitNameType; 


BEGIN 

CASE  selectedModel 


WHEN  1 


WHEN  2 


OTHERWISE 


END  CASE; 
NEW(Pk,  A. 


ImpactTimeA 
ImpactTimeB 
ImpactTimeC 
ImpactTimeA 
ImpactTimeB 
ImpactTimeC 
ImpactTimeA 
ImpactTimeB 
ImpactTimeC 


C); 


25200. 0 
28800. 0 
3600.  0 
3600.  0 
12096.0 
3600.  0 
5000.  0 
7200.  0 
3600.  0 


FOR  Unit  :=  A  TO  C 

RoundsPerGun  :=  ASK  RoundGenerator  UniformInt( 1 ,3); 

Z   :=  FL0AT( GunsFiring  *  RoundsPerGun)  *  LethalArea  /  TargetArea; 

Pk[Unit]  :=  P0WER((1.0  -  EXP( -SQRT(  Z) ) ) ,  2.  0); 
END  FOR; 
END  PROCEDURE; 

END  MODULE. 
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K.  MOE 


DEFINITION  MODULE  MOE; 

TYPE 

PROCEDURE  Mean(IN  replicationNumber 
IN  oldAvg 
IN  currentSample 


INTEGER; 

REAL; 

REAL)  :  REAL; 


PROCEDURE  MOEmean(IN  replicationNumber  :  INTEGER; 

IN  currentSample     :  REAL); 


PROCEDURE  MOEvariance(IN  replicationNumber 

IN  oldAvg 
IN  currentSample 

PROCEDURE  ReportStats; 

VAR 


INTEGER; 

REAL; 
REAL); 


TotalOPFORlosses, 
TotalOPFORstarting 
MeanMOE,  VarianceMOE 
meanMissionTime , 
meanAttritionForThisRun, 
per cent Attrition 

END  MODULE. 


:  INTEGER; 
:  REAL; 


REAL; 
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IMPLEMENTATION  MODULE  MOE; 

FROM  MathMod   IMPORT  POWER; 

FROM  Globals   IMPORT  OutputFile; 

FROM  Menu     IMPORT  numberOfReplications; 


PROCEDURE  Mean(IN  replicationNumber 
IN  oldAvg 
IN  currentSample 


INTEGER; 

REAL; 

REAL)  :  REAL; 


BEGIN 

RETURN   ((FLOAT( replicationNumber)  *  oldAvg)  + 

currentSample)  /  FLOAT( replicationNumber  +  1); 

END  PROCEDURE; 


PROCEDURE  MOEmean(IN  replicationNumber  :  INTEGER; 

IN  currentSample     :  REAL); 

VAR 

newMOE,  oldAvg  :  REAL; 

BEGIN 

newMOE  :=  currentSample/FLOAT(TotalOPFORstarting); 

oldAvg  :=  MeanMOE; 

MeanMOE  :=   ( (FLOAT( replicationNumber)  *  oldAvg)  + 

newMOE)  /  FLOAT( replicationNumber  +  1); 

MOEvariance( replicationNumber ,  oldAvg,  newMOE); 
END  PROCEDURE; 


PROCEDURE  MOEvariance(IN  replicationNumber 

IN  oldAvg 
IN  currentSample 
VAR 
rn, 
oldVariance  :  REAL; 


INTEGER; 

REAL; 

REAL); 


BEGIN 

rn  :=  FLOAT( replicationNumber); 
oldVariance  :=  VarianceMOE; 
IF  replicationNumber  =  0 

VarianceMOE  :=  0.  0; 
ELSIF  replicationNumber  =  1 

VarianceMOE  :=  P0WER(  (oldAvg  -  currentSample),  2.0)  /  2.0; 
ELSE 

VarianceMOE  :=  ( ( ( rn  -  1.0)/rn)  *  oldVariance  )  + 
POWER(oldAvg,  2. 0)  + 

((1.  0/rn)*POWER( currentSample, 2. 0))  - 
(((rn+1. 0)/rn)  *  P0WER( MeanMOE ,  2.0))  ; 
END  IF; 
END  PROCEDURE; 

PROCEDURE  ReportStats; 
BEGIN 

ASK  OutputFile  TO  WriteString("The  mean  Destroy  MOE  over  "); 


96 


ASK  OutputFile  TO  WriteInt(numberOfReplications ,5); 
ASK  OutputFile  TO  WriteStringC"  replications  is  "); 
ASK  OutputFile  TO  WriteReal(MeanMOE ,6 ,4); 
ASK  OutputFile  TO  WriteLn; 
ASK  OutputFile  TO  WriteLn; 

ASK  OutputFile  TO  WriteStringC "The  variance  of  the  Destroy  MOE  is  "); 
ASK  OutputFile  TO  WriteReal( VarianceMOE ,6,4); 
ASK  OutputFile  TO  WriteLn; 
ASK  OutputFile  TO  WriteLn; 

ASK  OutputFile  TO  WriteStringC "The  mean  mission  time  is  "); 
ASK  OutputFile  TO  WriteReal(meanMissionTime,8,4); 
ASK  OutputFile  TO  WriteStringC"  hrs."); 
ASK  OutputFile  TO  WriteLn; 
ASK  OutputFile  TO  WriteLn; 

ASK  OutputFile  TO  WriteStringC "The  mean  attrition  for  the"); 
ASK  OutputFile  TO  WriteStringC"  battalion  was  "); 
ASK  OutputFile  TO  WriteRealCpercentAttrition  *  100.0,8,4); 
ASK  OutputFile  TO  WriteStringC"  percent."); 
END  PROCEDURE; 

END  MODULE. 
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L.  MENU 

DEFINITION  MODULE  Menu; 

TYPE 

PROCEDURE  RunMenul; 
PROCEDURE  RunMenu2; 
PROCEDURE  CleanUp; 

VAR 

selectedModel , 

numberOfReplications   :   INTEGER; 

replicating, 

walkingThru, 

playingArty  :   BOOLEAN; 

END  MODULE. 
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IMPLEMENTATION  MODULE  Menu; 

FROM  CRTMod    IMPORT  ClearScreen; 

FROM  IOMod    IMPORT  ReadKey; 

FROM  MapRecon  IMPORT  UnitRoute,  UnitTargetList; 

FROM  OPFOR    IMPORT  EnemyVehicleRef; 


TYPE 


PROCEDURE  RunMenul; 
VAR 

selection  :  CHAR; 

BEGIN 

ClearScreen; 

OUTPUT;  OUTPUT;  OUTPUT;  OUTPUT; 

OUTPUTC n 

OUTPUT;  OUTPUT; 

OUTPUTC " 

OUTPUT;  OUTPUT; 

OUTPUT ( ' 

OUTPUT; 

OUTPUTC ' 

OUTPUT; 

OUTPUT (' 

OUTPUT; 

selection 

selectedModel 

RunMenu2; 
END  PROCEDURE; 


Welcome  to  the  Light  Infantry  Attack  Simulation  "); 


Select  the  Tactic  you  wish  to  experiment  with.  ); 

(1)  Base-Line  Model  "); 

(2)  Rear  Attack  "); 


(3)  Flank  Attack 

=  ReadKeyC ); 

=  STRT0INT( selection); 


'); 


PROCEDURE  RunMenu2; 
VAR 

selection  :  CHAR; 

BEGIN 

ClearScreen; 


OUTPUT;  OUTPUT;  OUTPUT;  OUTPUT;  OUTPUT 


You  have  the  option  to  :  '); 


OUTPUT 

OUTPUTC " 

OUTPUT;  OUTPUT;  OUTPUT; 

0UTPUT("(1)  Replicate  the  model  a  fixed  number  of  times,  or... 

OUTPUT; 

OUTPUTC "(2)  Conduct  a  model  Walk-Through  WITH  Artillery,  or"); 

OUTPUT; 

0UTPUT("(3)  Conduct  a  Walk-Through  WITHOUT  Artillery"); 

OUTPUT; 

selection 

IF  selection  =  'T 


'); 


=  ReadKeyO; 


replicating  :=  TRUE; 
walkingThru  :=  FALSE; 
playingArty  :=  TRUE; 
ELSIF  selection  =  "2" 
replicating  :=  FALSE; 
walkingThru  :=  TRUE; 
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numberOfReplications  :=  1; 

playingArty  :  =  TRUE; 
ELSE 

replicating  :=  FALSE; 

walkingThru  :=  TRUE; 

numberOfReplications  :=  1; 

playingArty  :=  FALSE; 
END  IF; 
IF  replicating 

OUTPUT;  OUTPUT;  OUTPUT;  OUTPUT;  OUTPUT; 

OUTPUT("  Enter  the  number  of  replications"); 

INPUT( numberOfReplications); 
END  IF; 
ClearScreen; 
END  PROCEDURE; 

PROCEDURE  CleanUp; 
BEGIN 

DISPOSE (EnemyVehicleRef); 

DISPOSE(UnitRoute); 

DISPOSE(UnitTargetList); 
END  PROCEDURE; 

END  MODULE. 
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APPENDIX  B.     INPUT  DATA  FILES 


A.     OPFOR  DATA 


Veh  ID  # 

Type  Xref  # 

location 

orientation 

107 

0 

NK388180 

135 

140 

0 

NK361194 

70 

138 

0 

NK359190 

80 

141 

0 

NK358185 

115 

208 

2 

NK35717  7 

97 

94 

0 

NK350201 

45 

99 

0 

NK335188 

110 

108 

0 

NK332182 

130 

106 

0 

NK331180 

130 

162 

3 

N?:329174 

90 

118 

1 

NK332157 

80 

95 

0 

NK329190 

120 

97 

0 

NK326189 

135 

113 

0 

NK315181 

108 

B.     MISSILE  DATA 


Missile  Vel  MaxEffRange  Prep  Acquire  Cut  AmmoCount  pHit 

DRAGON 

66.667  1000.0  20.0  5.0  2.0  2  0.6475 

TOW   (HMMWV  mounted) 

178.571  3750.0  5.0  5.0  2.0  10  0.7322 


C.     P-KILL  DATA 


DRAGON  vs. 

front 

BMP 

0.  72 

BRDM 

0.99 

T72 

0.  185 

ZSU234 

0.80 

TOW  vs. 

front 

BMP 

0.  965 

BRDM 

0.  995 

flank 
0.655 
0.  985 
0.405 
0.815 
flank 
0.965 
0.985 


rear 
0.  72 
0.99 
0.  185 
0.80 
rear 
0.965 
0.  995 
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T72 

0.  225 

0.  475 

0.  225 

ZSU234 

0.965 

0.965 

0.965 

D.     TRANSPORTATION  DATA 


METHOD 

DAY 

NIGHT 

Conv  Factor(m/s) 

Foot 

2.4 

1.6 

0.2778 

Truck 

12.  0 

8.  0 

0.  2778 

AirAssault 

145.  0 

100.  0 

0.5111 
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APPENDIX  C.     SCENARIO  INPUT 
A.     BASELINE  MODEL 


Symbol  Xre 
A  Company 
14 
13 
12 
10 

9 

8 

7 

5 

3 

2 

1 

0 
A  Company 

#  targets 
4 

B  Company 

14 

13 

12 

10 

9 

8 

7 

5 

3 

2 

1 

0 
B  Company 

#  targets 
3 

C  Company 

14 

13 

12 

6 

4 

1 

0 
C  Company 

#  targets 
4 


f#  coordinate   #  firing  pos 


Firing  Psns 


NK325185 
NK333175 
NK336171 
NK344164 
NK360164 
NK369171 
NK372181 
NK375188 
NK390198 
NK405199 
NK411200 
NK417198 
Target  List 
Target  ID 


numbers 


162  106  108  113 

NK330195 

NK335185 
NK341183 
NK344164 
NK360164 
NK369171 
NK372181 
NK375188 
NK390198 
NK405199 
NK411200 
NK417198 
Target  List 

Target  ID  numbers 
97   95   99 

NK360187 
NK362188 
NK365191 
NK368196 
NK369204 
NK360201 
NK353203 
Target  List 

Target  ID  numbers 
140   138   141  208 


0 
3 

3 

0 
0 
0 
0 


NK332172   NK333173   NK335176 
NK334170  NK335172  NK337173 


NK334184  NK335185  NK337187 
NK339180  NK341183  NK343184 


NK360185  NK362188  NK362191 
NK364188  NK364191  NK364192 
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B.     REAR  ATTACK  MODEL 


Symbol  Xref# 
A  Company 
14 

coordinate 
NK331176 

#  firing  ] 
0 

dos    Firing  Psns 

13 

NK322179 

3 

NK323180 

NK323178 

NK322177 

12 

NK315185 

3 

NK315183 

NK316184 

NK316185 

3 

NK311183 

0 

2 

NK303188 

0 

1 

NK301190 

0 

0 

NK297193 

0 

A  Company 

Ta 

rget  List 

#  targets 

Target  ID 

numbers 

4 

113 

162 

106   108 

B  Company 

14 

NK332186 

0 

13 

NK326189 

3 

NK324186 

NK326189 

NK327191 

12 

NK320190 

3 

NK319189 

NK320190 

NK321191 

4 

NK315193 

0 

1 

NK301190 

0 

0 

NK29  7193 

0 

B  Company 
#  targets 

Ta 

rget  List 

Target  ID 

numbers 

3 

95 

97 

99 

C  Company 
14 

NK357180 

0 

13 

NK356187 

3 

NK354184 

NK356187 

NK357188 

12 

NK351192 

3 

NK349189 

NK351192 

NK353194 

7 

NK346195 

0 

6 

NK335198 

0 

5 

NK3 18200 

0 

1 

NK301190 

0 

0 

NK297193 

0 

C  Company 
#  targets 

Ta 

rget  List 

Target  ID 

numbers 

5 

94 

140 

138 

141   208 
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C.     FLANK  ATTACK  MODEL 


Symbol  Xre 
A  Company 
14 
13 
12 

2 

1 

0 
A  Company 

#  targets 
3 

B  Company 

14 

13 

12 

3 

1 

0 
B  Company 

#  targets 
4 

C  Company 

14 

13 

12 

5 

4 

1 

0 
C  Company 

#  targets 
5 


f#  coordinate   #  firing  pos    Firing  Psns 


NK329178 
NK325188 
NK326199 
NK329210 
NK335217 
NK335219 
Target  List 


NK331178 
NK331190 
NK333198 
NK333207 
NK335217 
NK335219 
Target  List 


NK355180 
KK356185 
NK360198 
NK354204 
NK345207 
NK335217 
NK335219 
Target  List 


95 


99 


0 
3 
3 
0 
0 
0 

Target  ID 
97 

0 
3 
3 
0 
0 
0 


Target  ID  numbers 
108     106 


NK322187 
NK325199 


numbers 
113 


NK329184 
NK332198 


NK325188  NK323187 
NK326199  NK327199 


NK330182  NK332185 
NK333198  NK334198 


162 


94 


0 

3     NK354185 

3     NK355199 

0 

0 

0 

0 

Target  ID  numbers 
140   138   141   208 


NK356185  NK359186 
NK360198  NK361198 
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APPENDIX  D.     SAMPLE  ATTRITION  OUTPUT 

Attrition  to  platoon  CI  with   13  losses. 

Strengths  for  each  class  of  soldier 

rifleman        8 

autorifleman    3 

grenadier       3 

machinegunner   0 

dragongunner    1 

leader         11 

Attrition  to  platoon  C2  with    13  losses. 

Strengths  for  each  class  of  soldier 

rifleman        7 

autorifleman    4 

grenadier       3 

machinegunner    1 

dragongunner    2 

leader  9 

Attrition  to  platoon  C3  with   13  losses. 

Strengths  for  each  class  of  soldier 

rifleman        8 

autorifleman    3 

grenadier       5 

machinegunner    1 

dragongunner    1 

leader  8 

Attrition  to  platoon  Al  with    8  losses. 

Strengths  for  each  class  of  soldier 

rifleman       10 

autorifleman    3 

grenadier       6 

machinegunner    1 

dragongunner    1 

leader         10 

Attrition  to  platoon  A2  with    8  losses. 

Strengths  for  each  class  of  soldier 

rifleman        9 

autorifleman    3 

grenadier       5 

machinegunner    1 

dragongunner    2 

leader         11 

Attrition  to  platoon  A3  with    8  losses. 

Strengths  for  each  class  of  soldier 

rifleman        5 

autorifleman    5 

grenadier       6 

machinegunner    1 

dragongunner    2 

leader         12 

Attrition  to  platoon  Bl  with   17  losses. 

Strengths  for  each  class  of  soldier 

rifleman        6 


106 


autorifleman    4 

grenadier       2 

machinegunner    1 

dragongunner    0 

leader  9 

Attrition  to  platoon  B2  with   17  losses. 

Strengths  for  each  class  of  soldier 

rifleman        5 

autorifleman    3 

grenadier       3 

machinegunner    1 

dragongunner    1 

leader  9 

Attrition  to  platoon  B3  with   17  losses. 

Strengths  for  each  class  of  soldier 

rifleman        6 

autorifleman    3 

grenadier       4 

machinegunner    1 

dragongunner    1 

leader  7 
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APPENDIX  E.     SAMPLE  ENGAGEMENT  HISTORY 

All  damaged  113 

Bll  killed   97 

C31  missed   94 

C32  killed  140 

C21  damaged  138 

B21  killed  95 

Cll  missed  141 

B31  missed   99 

C31  moved  out  of  range  of  target   94 

Cll  damaged  141 

C21  killed  138 

C12  damaged  208 

B31  killed   99 

C12  killed  208 

Handing  over  141  to  platoon  C2 

C22  killed  141 

A22  missed  162 

All  killed  113 

A31  damaged  106 

A21  damaged  108 

A22  damaged  162 

A31  missed  106 

A21  missed  108 

Reassigning  106  to  A32 

A32  damaged  106 

A32  killed  106 

Handing  over  162  to  platoon  Al 

A12  missed  162 

A12  missed  162 

Unable  to  handover  target   162 

Unable  to  handover  target   108 
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APPENDIX  F.     BASELINE  MODEL  OUTPUT 

A.  RESULTS  OF  500  REPLICATIONS 

The  mean  Destroy  MOE  over   500  replications  is  0.5881 

The  variance  of  the  Destroy  MOE  is  0. 0105 

The  mean  mission  time  is   8.0390  hrs. 

The  mean  attrition  for  the  battalion  was   33. 9972  percent. 

B.  RESULTS  OF  A  TRIAL  WITHOUT  ARTILLERY 


Enemy  BMP  number  138  KIA. 

Killed  at  H  +  7. 3hrs  by  weapon  type  dragon  from  a  frontal  shot. 

Enemy  BMP  number  141  KIA. 

Killed  at  H  +  7. 3hrs  by  weapon  type  dragon  from  a  flank  shot. 

Enemy  BMP  number  99  KIA. 

Killed  at  H  +  7. 3hrs  by  weapon  type  dragon  from  a  frontal  shot. 

Enemy  BMP  number  9  7  KIA. 

Killed  at  H  +  7. 9hrs  by  weapon  type  dragon  from  a  frontal  shot. 

Enemy  T72  number  208  KIA. 

Killed  at  H  +  7. 9hrs  by  weapon  type  dragon  from  a  flank  shot. 

Enemy  BMP  number  95  KIA. 

Killed  at  H  +  8. Ohrs  by  weapon  type  dragon  from  a  frontal  shot. 

Enemy  BMP  number  140  KIA. 

Killed  at  H  +  8. Ohrs  by  weapon  type  dragon  from  a  flank  shot. 

Enemy  BMP  number  108  KIA. 

Killed  at  H  +  8. Ohrs  by  weapon  type  dragon  from  a  frontal  shot. 

Enemy  ZSU234  number   162  KIA. 

Killed  at  H  +  8. 2hrs  by  weapon  type  dragon  from  a  frontal  shot. 

The  mean  Destroy  MOE  over     1  replications  is  0.6429 

The  variance  of  the  Destroy  MOE  is  0. 0000 

The  mean  mission  time  is   8. 2474  hrs. 
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C.     RESULTS  OF  A  TRIAL  WITH  ARTILLERY 


Enemy  BMP  number   138  KIA. 

Killed  at  H  +   7. 3hrs  by  weapon  type  dragon  from  a  frontal  shot. 

Enemy  BMP  number   141  KIA. 

Killed  at  H  +   7. 3hrs  by  weapon  type  dragon  from  a  flank  shot. 

Enemy  BMP  number   99  KIA. 

Killed  at  H  +   7. 3hrs  by  weapon  type  dragon  from  a  frontal  shot. 

Enemy  BMP  number   140  KIA. 

Killed  at  H  +  8. Ohrs  by  weapon  type  dragon  from  a  flank  shot. 

Enemy  ZSU234  number   162  KIA. 

Killed  at  H  +  8. Ohrs  by  weapon  type  dragon  from  a  frontal  shot. 

Enemy  BMP  number   108  KIA. 

Killed  at  H  +  8. Ohrs  by  weapon  type  dragon  from  a  frontal  shot. 

Enemy  BMP  number   106  KIA. 

Killed  at  H  +  8.  lhrs  by  weapon  type  dragon  from  a  frontal  shot. 

The  mean  Destroy  MOE  over     1  replications  is  0. 5000 

The  variance  of  the  Destroy  MOE  is  0. 0000 

The  mean  mission  time  is    8.4447  hrs. 

The  mean  attrition  for  the  battalion  was   34. 3475  percent. 
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APPENDIX  G.     REAR  ATTACK  MODEL  OUTPUT 

A.  RESULTS  OF  500  REPLICATIONS 

The  mean  Destroy  MOE  over   500  replications  is  0. 6757 

The  variance  of  the  Destroy  MOE  is  0. 0158 

The  mean  mission  time  is   5.  1685  hrs. 

The  mean  attrition  for  the  battalion  was   33. 9972  percent. 

B.  RESULTS  OF  A  TRIAL  WITHOUT  ARTILLERY 


Enemy  BMP  number   97  KIA. 

Killed  at  H  +  4.  lhrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  BMP  number   140  KIA. 

Killed  at  H  +  4.  lhrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  BMP  number   95  KIA. 

Killed  at  H  +  4.  lhrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  BMP  number   138  KIA. 

Killed  at  H  +  4. 9hrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  BMP  number   99  KIA. 

Killed  at  H  +  4. 9hrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  T72  number  208  KIA. 

Killed  at  H  +  4. 9hrs  by  weapon  type  dragon  from  a  flank  shot. 

Enemy  BMP  number   141  KIA. 

Killed  at  H  +  5. Ohrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  BMP  number   113  KIA. 

Killed  at  H  +  5. Ohrs  by  weapon  type  dragon  from  a  frontal  shot. 

Enemy  BMP  number   106  KIA. 

Killed  at  H  +  5. lhrs  by  weapon  type  dragon  from  a  flank  shot. 

The  mean  Destroy  MOE  over     1  replications  is  0. 6429 

The  variance  of  the  Destroy  MOE  is  0. 0000 

The  mean  mission  time  is   5. 1876  hrs. 
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C.     RESULTS  OF  A  TRIAL  WITH  ARTILLERY 


Enemy  BMP  number   94  KIA. 

Killed  at  H  +  4.  lhrs  by  weapon  type  dragon  from  a  flank  shot. 

Enemy  BMP  number    95  KIA. 

Killed  at  H  +  4. lhrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  BMP  number   140  KIA. 

Killed  at  H  +  4. 2hrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  BMP  number    99  KIA. 

Killed  at  H  +  4. 9hrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  BMP  number   138  KIA. 

Killed  at  H  +  5. Ohrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  BMP  number    9  7  KIA. 

Killed  at  H  +  5. Ohrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  ZSU234  number   162  KIA. 

Killed  at  H  +  5. Ohrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  BMP  number   106  KIA. 

Killed  at  H  +  5. Ohrs  by  weapon  type  dragon  from  a  flank  shot. 

The  mean  Destroy  MOE  over     1  replications  is  0.5714 

The  variance  of  the  Destroy  MOE  is  0. 0000 

The  mean  mission  time  is   5:  3100  hrs. 

The  mean  attrition  for  the  battalion  was   34. 3475  percent. 
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APPENDIX  H.     FLANK  ATTACK  MODEL  OUTPUT 

A.  RESULTS  OF  500  REPLICATIONS 

The  Mean  Destroy  MOE  over   500  replications  is  0.6330 

The  variance  of  the  Destroy  MOE  is  0. 0196 

The  mean  mission  time  is    3. 9922  hrs. 

The  mean  attrition  for  the  battalion  was   33. 9972  percent. 

B.  RESULTS  OF  A  TRIAL  RUN  WITHOUT  ARTILLERY 


Enemy  BMP  number   94  KIA. 

Killed  at  H  +  2. 5hrs  by  weapon  type  dragon  from  a  flank  shot. 

Enemy  BMP  number   95  KIA. 

Killed  at  H  +  2. 5hrs  by  weapon  type  dragon  from  a  flank  shot. 

Enemy  BMP  number   97  KIA. 

Killed  at  H  +  3. 6hrs  by  weapon  type  dragon  from  a  flank  shot. 

Enemy  BMP  number   138  KIA: 

Killed  at  H  +  3. 7hrs  by  weapon  type  dragon  from  a  flank  shot. 

Enemy  T72  number   208  KIA. 

Killed  at  H  +  3. 7hrs  by  weapon  type  dragon  from  a  flank  shot. 

Enemy  BMP  number   140  KIA. 

Killed  at  H  +  3. 7hrs  by  weapon  type  dragon  from  a  flank  shot. 

Enemy  BMP  number   141  KIA. 

Killed  at  H  +  3. 8hrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  BMP  number   99  KIA. 

Killed  at  H  +  4. 3hrs  by  weapon  type  dragon  from  a  flank  shot. 

Enemy  BMP  number   108  KIA. 

Killed  at  H  +  4. 3hrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  BMP  number   106  KIA. 

Killed  at  H  +  4. 4hrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  ZSU234  number   162  KIA. 

Killed  at  H  +  4. 6hrs  by  weapon  type  dragon  from  a  flank  shot. 

The  mean  Destroy  MOE  over     1  replications  is  0. 7857 
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The  variance  of  the  Destroy  MOE  is  0. 0000 
The  mean  mission  time  is    4. 5680  hrs. 

C.     RESULTS  OF  A  TRIAL  RUN  WITH  ARTILLERY 


Enemy  BMP  number   94  KIA. 

Killed  at  H  +   2. 6hrs  by  weapon  type  dragon  from  a  flank  shot. 

Enemy  BMP  number   9  7  KIA. 

Killed  at  H  +  2. 6hrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  BMP  number   95  KIA. 

Killed  at  H  +  3. 6hrs  by  weapon  type  dragon  from  a  flank  shot. 

Enemy  BMP  number   138  KIA. 

Killed  at  H  +  3. 7hrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  BMP  number   140  KIA. 

Killed  at  H  +   3. 7hrs  by  weapon  type  dragon  from  a  flank  shot. 

Enemy  BMP  number   141  KIA. 

Killed  at  H  +  3. 8hrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  BMP  number   113  KIA. 

Killed  at  H  +   3. 8hrs  by  weapon  type  dragon  from  a  flank  shot. 

The  mean  Destroy  MOE  over     1  replications  is  0. 5000 

The  variance  of  the  Destroy  MOE  is  0. 0000 

The  mean  mission  time  is   4. 3956  hrs. 

The  mean  attrition  for  the  battalion  was   34. 3475  percent. 
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